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^ PROJECT NO. 8U 

INTERCOM 1000 DOUBLE PRECISION APPENDIX 
TECHNICAL MANUAL 

1. Introduction 

In order to increase the versatility of the Intercom 1000 System and 
in order to be able to use auxiliary equipment with the Intercom 1000 
System, a number of subroutines were developed. These subroutines are 
documented in this manual so that the internal structure is available 
to any user. 

Some innovations have been introduced here which will not be found 
in the January, 1959 issue of Intercom 1000 manual. According to 
instructions contained in the manual, in order to enter a subroutine 
one has to use a command beginning with operation code 08. When 
this operation code is used, any mathematical subroutine specified 
in the address portion will be entered and will operate from line 19. 
All subroutines beginning with operation code 08 are grouped in the 
Appendix I to Intercom 1000. As an additional improvement it has been 
decided to develop Appendix II to Intercom 1000. Appendix II contains 
essentially the same mathematical subroutines and the only difference 
( is that they are executed from line 05 instead of from line 19 » In 

order to enter such subroutines, operation code 02 is used instead of 
08. Appendix II does not contain input-output routines which are 
part of Appendix I. 

Since these subroutines are tailor-made for the Intercom 1000 System, 
the specifications will not necessarily be of standard form but. they 
will be consistently laid out in the manual, The following pattern 
will be usedt each subroutine will consist of four parts j specifi- 
cations, method, flow charts and coding sheets. 

AH subroutines are executed from line 19 if Appendix I is used and 
from line 05 if Appendix II is used. 

Unless otherwise specified, the argument x (data input) must be placed 
in the W A" Register, and the result (date output) will be found also 
in the M A tt Register. 

S 

1.1 Appendix M'\ ( Operation Code 08) 

"Intercom 1000, Appendix P is a tape containing subroutines 
which use channel 19 and whose operation code is 08, 

Operation of the Appendix is fully explained in the Intercom 
1000 Manual (pages IB, 19 of January, 1959 edition CB-029.) 
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O 1#2 A PP e ndix II (Operation Code 02) 
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(Note* Operation Code 02 is not listed in the manual) Appendix 
H contains subroutines whose operation code is 02 and which do 
not involve channel 19 during their execution. They are executed, 
in the double precision system from channel 0J>. 

In all other respects the operation of Appendix II is identical 
with that of Appendix I. 

Note that Appendix II contains only the fraction length selector 
and the mathematical subroutines (square root, logarithms, 
exponential, sine, cosine, arc tangent.) 

1*3 Comparison between the Appendices 

Appendix II generally provides a faster program, for its subroutines 
can operate simultaneously with any input or output. 

However, the use of Appendix II impedes the "listing of selected 
commands « N (See manual page 16.) This consideration may make it 
preferable to use Appendix I exclusively, especially where there 
is little input or output during computation. 

Nevertheless, even where it is planned to use Appendix II sub- 
routines in the final version of a program, it may be advantageous 
to replace them temporarily with Appendix I subroutines and the 
corresponding 02 operation codes with 08* Thus, unimpeded listing 
could be resorted to whenever desired. Once the program is 
thoroughly "debugged," it will be a simple matter to restore the 
Appendix II subroutines and the 02 operation cddes* 

The Appendix II tape contains only mathematical subroutine*,, 
whereas Appendix I contains the same subroutines plus service 
routines such as flioc-input, flax-output, magnetic tapes, etc* 



^ 



Page 3 of 101 



^ 



O 



2. General Description of Subroutines 

The following pages contain some details of the Appendix Loader and 
the specifications, description of method, flow chart, coding sheets 
and memory allocation chart (sexadecimal type-out) of each subroutine, 
except the "fraction length selector/ details of which are given in 
Applications Section Project No, 83. 

The coding sheets and sexadecimal type-outs are those of Appendix I* 
The only difference between the two versions occur where "19"' in 
the source or destination column has to be changed to ""O^", and 
where the characteristic w '6 n ', in the return commands, has to be 
changed to characteristic "5*. These changes are listed at the end 
of the •"specifications"' for each subroutine. 

The check sum or summation constant of each block of tape is in 
location u7 of the line (the first number read in), and is used by 
the loader to verify whether the tape has been correctly read in. 
This and some other auxiliary constants have no effect on the 
execution of the program. Differences in these constants between 
the two versions are not listed in the "specifications." 

The error alarm in Intercom 1000 is five bell-rings and printed 
periods followed by a halt. The error exit, that is, the command 
in a subroutine which leads to the error alara, is listed in the 
specifications « 

Source 29 is used to obtain zero in most of the subroutines* 
2»1 Check Sums 

As of April 20, 1959 the following were the check sums of the 
subroutines in the two appendices t 



Loader 

Fraction Selector 

Square Root 

Logarithms 

Exponential 

Sine -Cosine 

Arc Tangent 



Ap pendix I 
.wOyviiOz 
.1001601 t - 
.1002602 :. 
.1000603 
.100060U 
.1001605 
.1000606 ^" 



Appendix II 

# wOyvU02 

.1001501 

•1002502 

.1001503 

.100150U 

.1002505 

.1000506 
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Flex-Input 
ELex-Output 
Magnetic Tape 
CAvl Data 
CA-l Commands 



Appendix I 
•1000607 ^ 
•1000608 
.1003189 
.100060u 
•100060 v 



Appendix II 



O 



Page 5 of 101 



3. The Loader 

For instructions and codea required to call any Appendix subroutines, 
refer to page 18 of the Intercom 1000 aanual* 



v^-.y 



x^,,..^/ 



'w 
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Problem 
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k* Square Root 

lul Specifications 

ENTRY t Loc. 97 

EXIT: The return from the subroutine will always be made to 
L. 00.01 unless a different exit is required. A 
return command can then be inserted either in loc* 
50, 80 or 98 of this subroutine (See coding sheets)* 

ERROR EXIT* An error exit will be made to L. 0l*.26 unless a 

different exit is required. A return command can 
be inserted in loc. 89 of this subroutine (See 
coding sheets). 

ERROR INDICATION: A negative argument will set up the error alarm. 

DATA INPUT* Argument x must be placed in the "A» Register (21*00,01) 

DATA OUTPUT* "A H Register (21.00,01) 

RANGE OF ARGUMENTS Any non-negative number that can be expressed In 
Intercom 1000. The range is approximately from 
2.9x10-38 t0 i,07xl03 8 . 



EXECUTION TIME* 5 drum cycles 

ACCURACY: f rror < 2~U9 
Answer 



SHORT LINE 
LOCATIONS USED: 



Line 20, wor.is 0, 1 



Line 21, words ", 1, 2, 3 
Line 22, word 
Line 23, words 2, 3 

LOCATIONS NOT 
USED IN LOW 
LINE: 00 through U5, and 55, 7k, 80, 81, 8U, uO through u7. 

CHECK SUM: 1002602 (Appendix I) 
1002502 (Appendix II) 

REMARKS: This tape contains an alternative square root subroutine 
with entry at 7U instead of 97 which saves one drum 
revolution, but which leaves only the following locations 
available to the programmer: 02, Oil, 05, 07, 08, 10, 
11, 15, 17, 18, 19, 21, 23i 2ii, 25, 27, 30, 31, 35, 36, 
37, 38, 1*0, la, k2, U3, hk, IS, U6, U8, 50, 51, 53, 55, 
56, 58, 62, 68, 76, 78, 79, 83, 81+, 86, 88, 89, 95, 97, 
u0«*u7. (See page 3 of coding sheets) 



V,,^/ 



^ 
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APPENDIX H 

VERSION: Change n 19 M to "05" in commandst 12, 32, Si, $9, 

70, 88. 

U«2 Method 

Let A • B^" 128 , where b is the binary exponent stored with the 
fraction B in d.p. floating point. 

let VE • R.2 r ~ 128 , in floating binary notation. 

b 
If b is even, then r - ? ♦ 6U, R • rTf 

b*l 
If b is odd, then r - T~ + 6k, R * rB/2 

Let x • R ? J then lA^ * <1. 

If R n • a ♦ x (1-ax), where a - 3?»2* 7 , then lR-Rol<2~ 7 . 

x Ri Ri ,, 

If R i4l - 1/2 (H ± * H ± ) - 1A ix/T) * "?, then IR-R-jl <2" Ux i 

1R-R2l< 2 " 28 J IR-R3I < 2" 56 . 

R-, and R^ may be determined with sufficient accuracy by single 
precision divisions j only Ro> requires a final double precision 
division* 

If was found during debugging that correct roots of certain 
numbers could be obtained only by filling bits to the right of 
single precision R^ and R$ with binary ones. This guarantees 
that R^ R2 > R in all cases. 



^ 
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U.3 INTERCOM 1000 (D. P.) SQUARE ROOT SUBROUTINE 

PLOW CHART . 



^w 



^ 



(B9) 



Error Exit 



i Yes 



(97. U6) 




X-I2I 



I 



/2 OID 



fl.V-flfi)^ 



res 



w<o? 



(8B-75) ^ 



TfS" 



> 



E 



-£>PN 



(?0- ??)^ 



P-ofe/n" 



-£>PN 



(te 



3) fr 



22.00) - 0? 



m. 






V Yaa , 

— 022.00 I 



> 



No 



(51-56) 



r~OAR 



I 



Clear 22.00 



(62) 



5 



r 23^32 

Neg7H>AR IT b odd 



(66) 

B OID 



I 



I 



261 



is b odd? 

MZZE 



okip 



-o 



(6 6- 97 ) Rf _ 

R - R^ O ra 



l2Uhl 



R,r 



A 



(98) 



QBxi 



Exit — 000*01 



J 



W 



o 




Pflf^e 1ft of ^01 



lot Angtiit 4S, Cililarnli 



Q-150 Pripirti l> S.H.,Lowis 

PROGRAM PROILEM : Intercom 1000 (Tl.P.) Square Root Subroutine 



am: 31 Mar, $ 9 



L 



P 






N 



$ 



BP 



NOTES 



•21 



8 . 



ilO. 



ii6. 



3. 



30. 



28 



b • (30.00) 



>N 



OAR 



•us 



18. 



1. 



28. 



?5 



( AR) - * {>IDi 



• • 



49. 



50. 



3. 



21. 



2? 



(21.01) • 0? 



.50 



s .31 



31. 



0. 



21. 



31 



7®j 



Exit 



-C> 00.01 



70- 



jSL 



s . 



52 



53. 



3. 



19. 



29 



ooooobo 



j> AR+ 



_*& 



• • 



02.^ 



0. 



fell 



31 



Mult. (To shift) 



j& 



♦ * 



2L 58 



2.25 



29 



(H) )[ f, AR* 



.^8 



a^L 



62.0. 



29.22 



C lear (22.00) 



j& 



66J68.6.25. 



23 



i 



I2il 



v>AR 



,68 



j_j 



22 



42^4 



it. 



31 



?1 



B « (31.00,01) 



{^ID 



Gi*- 



L^ 



.*26_ 



JL-J 



78 



28 



0, 



22 



11 



(AR)< 0? 



,a28 



81 



83 



jHj 



00 



00 



.79 



8 w 



02 



83 



0, 



26 



31 



_=J 



JM£. 



(b even) 



Shift (b odd) 



.83 



8k 



86 



0. 



21, 



28 



(21.00)- 



OAR 



V 



,86 



. ,88 



88 



0, 



22 



31 



(AR) < 07 



,88 



.92 



95 



6,19 



2U 



U6OOOO0I V> MQ 1 



m 



,26 



26 & 



,21 



31 



zr 



Error exit 



a2S 



*hs 



8U 



,U0 



ay. 



U9 



►25 



21 



,6U 



.0 



.21* 



,31 



x " ^O.l* 21.00-03 Q -J 



■Mult. 



.61j 



.65 



67 



.0 



.26 



.28 



ax - (PNi)- 



OAR 



FORM 

ICO 

MMM 



■62 



M 



15 



.U 



.21.25 



x » (21.00,01) 



C>ID 



n^L 



»7C 



71.72 



19 



.26 



.U600000 



OPN, 



jJ2 
.75 



JL-.L 



• » 



21 
Hi 



22 J 
.90.0 



sM^ 



1-ax ■ ~(AR) QMQ 



21* 



31 



Mult 



& 



a*x 



(l-ax)~| 
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PROGRAM PRORtEM t Intercom 1000 (P.P.) Square Root Subroutine 



P»t» 



of 



3 



Put: 31 Mar, 5 9 
LIm 19. 



EF 



G 



D BP 



NOTES 



>90 



»u« 



»3. 



?3. 



4* 



>6. 



>5 



Ri-(n* n<1 ,) -•< ID 0fl 



•21 



JLJt 



32 



?6. 



?6 



31 



.96 



.u, 



?9. 



?9.i. 



>1. 



?6 



,99 



. .53. 



4?*l» 



>5. 



(&7 



'• . 



-»8, 



•5U . . 



.57 



£.57. 



« . 



5U.' 



3. 



>9. 



59. 



3.23 



!!*• 
5 



30 



31 



Shift 



x * (21.01,02) 



frVN 



0*1- 



31 



?6 



Divide (5. P.) 

ET " 

1A (x/ n " (MQn 
Hi 

r* ■ (idt)— >pi. 



? . 



PN, 



t «...„». 



Clear (evon) 



^ 



SO. 



b3. 



4e L". 



3_P_ 



-U* 



OOOOOOlj gr.?,zsgs 



,1 



i^V 1 - 



.63 



SU. 



tf. 



).?2. 



?7 



(22.00) • 0? 



V^ 



.6^ 



b8. 



90. 



3. 



?9. 



22 



-P., 



«0 



7H 



22.00 



.66 



su, 



& 



b9.W 



26. 



25. 



5*^1^ 



■I-'ID, 



«ii- 



.69 



32. 



73. 



0. 



26. 



131 



Shift 



.73 



7U. 



77.U.21. 



26 



x - (21.02,03) 



'•-PN 



llw jfr— 



«n 



v2« 



82. 



1.25. 



31 



Divide (P.P.) 



.82 



iHaQi 



85. 



21*. 



26 



He 



iA (x /r> mmq^ 



' • PN 



4J- 



.85 



86 



87 



1. 



23. 



28 



- (23.02) * >:• AK 



t§l 



88. 



91.U.25.30 



V 2 M (I "o t li- 



™OJLl. 



^21 



^2k 



22 



M l/i-l^iM 



i — a 



26,20,0, 



2k 



JL.2&21 



R " (P".),l) 



; 2i oo 8 oi 



£L.21 



^7.00) 



21.00 



.98 



Pi. 



01, 



0, 



21. 



31 



.52 



.60 



^ 



FORM 

BCO 

101-17.0 



.t.1 



-iZl 



.92 



Exit 



00.01 



.oooooho 



rttrtr" it r, <•- 



-.0000001 



.I1600000 



.iiftOOOOO 



».%J»fcA -JI-. **J, *• ,JA----* 
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PROGRAM PROIUM ! Intercom 1000 (H.P*) Square Root Subroutine 



Pali: 31 Mar* g 9 
L!n« IV. 






t 



.7U 



.80 



♦81 



^00 



*°1 



.02 



.06 



.09 






3 .77. HO, 0.21.37 



s • 
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01. 



Bh.DO. 



8 .Oil. 



07. 



.12 



.11» 



.16 



.20 



.22 



.26 



Jl 28 



.29 



02.12. 



, Jl3«lh. 



1^.16. 



• « 



IB 



mM 



• • 



• « 



tS, 



J& 



01 



.13 



FORM 

ICO 

101-17.0 



.33 



•u6 



.u7 



B , 



H 



0.21. 



0. 



02.02. 



0. 



26.26.1*. 



06 



22 



21*. 



28 



21.28 



3. 



0. 



S 



31 



22. 



21. 



30.28 



09.1.28.2$ 



2h. 



19 < 



2,2^,29 



20,0, 



22, 



26, 



28, 



32J32 



l3i 



02J32.0 



'ij 



i?Si 



u. 



o 



o 



,36,39,0,29.22 



.u 



,UJU 



33, 3U. 0.19.2U 



U9 



S 



31 



31 



31 



NOTES 



(21.01) « Of 



j*)J 



J*EJ 



Exit (> 00.01 



(21.00) >>ar 



(An)< o? 



Error exit 



b * (30.00)— -- - £>AR 



(AR) 



ID, 



28^ 



23 



28 



31. 



22, 



00. 



26, 



29 



2$ 



31 



00 



31 



Mult. (To shift) 



25.21 



.OOOOOliO 



-f>AR* 



412iL 



-C>AR* 



r - (AR) 



■ r 23.02 



iMhl 



fr 



{.'AR 



13 - (31.00,01) 



<>ID 



OyX- 



(AR)C 0? 



Skip (b even) 



Shift (b odd) 



.1*600000 



•---OHQ. 



Clear (22.00) 



x ■ (ID nj1 ).— (> 21.00,01,02,03 



See P. 1 
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,l\ 600000 



-♦vOa^zraU 



,1002602 




MEMORY ALLOCATION CHART 



Problem 



fl- JtiltxrXiUlU J. J&QQJ01JL ) 

SQUARE ROOT, 



v^ 



Prepnrod by 



SsH. Lewis 



Check Slum 



100260? 



l'-'Ko V) of 101 

Pago JL oJLi 

Da to U19. 

Line 19, 



^ 





U7 
1002602 


U6 

-vOz9zz4 


U5 


U4 


» . 




U3 


U2 


Ul 


uo ~~~~ 






99 
352z73z 


90 

I0l2vz 


97 """' 

y42yzxw 


96 
-63632vu 






95 
-6431335 


94 

y062375 


93 

26035z 


92 
4600000 






91 
~5y5y353 


90 
-5x5x359 


89 
-lulu2vz 


88 
-xw5zu78 
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86 
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84 






03 

55.562.vw 

79 ' 
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81 
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80 
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77 
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76 
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74 
wx502vv 


73 

-4w4x2vu 


72 
4u4vz98 
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71 
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70 " ' 
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69 
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3 


2 


1 
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65 
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63 
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62 
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L 


60 
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54 
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53 
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40" 

32.32.2vv 
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46 
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42 


41 
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38 


37 
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34 
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33 

4600000 
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30 
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U020000 
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28 
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17 


20 

-161633W 
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18 
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40 
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$ % Logarithm 

5.1 Specifications 

ENTRT* Loco 71 for log]_QX (word position to be used in 
■Perform Subroutine 1 * Command, - 71) 
Loco 17 for loggX (word position to be used in 
'•■Perform Subroutine"" Command, - 17) 
Loc. 08 for loggsc (word position to be used in 
••Perform Subroutine* Command, - 08) 

EXIT* The return from the subroutine will always be made 
to L. 00.01 unless a different exit is required. A 
return command can then be inserted either in loc. 
26 or 75 of this subroutine (See coding sheets). 

ERROR EXIT: An error exit will be made to L. 0i*.26 unless a 

different exit is required. A return command can 
be inserted in loc. 82 of this subroutine (See 
coding sheets). 

ERROR INDICATION? A negative or zero argument will be rejected 
and will set up the usual error indication. 



DATA INPUT: 



Argument x must be placed in the "A" Register and 
x>0. 



DATA OUTPUT: n A» Register 

RANGE OF ARGUMENT: Any positive non-zero number that can be expressed 
in Intercom 1000. The range is approximately from 
2.9x10-38 to 1.07x1038. 



EXECUTION TIMEr Approximately 22 drum cycles. No attempt has been 
made for optimizing this subroutine, rather it was 
written to accompany the 1000 Interpretive System. 



ACCURACY t 



Correct to at least 11 significant figures. 



O 



SHORT LINE 
LOCATIONS USED i 



LOCATIONS NOT 
USED IN LOftT 
LINE: 



Line 20, words 0, 1, 2, 3 
Line 21, word 0, 1, 2 
tine 22, words 0, 1 



21, 32, u0-u7. 

(Locations u5, u6, u7 contain summation and identification 
constants. These locations can be used for other 
purposes, since the constants are not required in the 
operation of this subroutine). 



<w 



^ 



CHECK SUM* 



REMARKS t 



APPENDIX II 
VERSION: 



5.2 Method 
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1000603 (Appendix I) 
1001503 (Appendix II) 

Logarithms of arguments less than unity are expressed 
as negative numbers* 



Change source or destination 19 to 05 in the following 
commands s 08, 11, 17, 36, 1*2, 1*5, 50, 5U, 61, 62, 6L, 
70, 72, 8k, 85, 86, 90, 91, 96. 



The basic formula used is* loggu * 1/2 ♦ Cpr ♦ C2v3 ♦ C^vZ ♦ C^V? ♦' 

u-/2~ 
Ctpr? where v • u+TJT 1^ u < 2 

and where* the constants have the following values (courtesy of 
Mr. E.T. Federighi of Beedix Radio Division) 

Decimal 

Cx - 2.8853, 9008, 1790, 0618 

C 2 - *9617, 9667, 3368, 5217 

C 3 - .5770, 8358, 0209, 1610 

C^ - .1016, 7299, 2266, ObOU 

Ccj • .3U07, 2519, 8333, U278 

The logarithms to all bases are just calculated to base 2, then 
converted to the required base by the multiplication of a 
constant, since: log 10 x ■ logj>x • logio2 
log e x - log2X • log e 2 

The argument is reduced to a fixed point number between 1/k and 
1/2. This represents u/k in the formula 



Sexadec. 


Scaled 2-3 


5w55lx9 


95z6yUO 


lyw709x 


2613xz0 


-127777Z 


803w5lO 


0x2w6wx 


x9v77y8 


Ouy7388 


z:sOz8x8 



u/U ♦ /2/U 



which gives the v of the polynomial above. 

The polynomial is then evaluated. The result is complemented if 
x<l« 



^ 
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i 

The values of logarithms for arguments outside of the basic range 
are found by adding the proper power of 2 for each bit in the 
binary exponent? for if 

x - u.2P 
then* log2x » logau ♦ p 

Logarithms to other bases are then found by multiplying by the 
proper constant. 



<~' 



S^y' 
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5.3 INTERCOM 1000 (D. P. ) LOGARITHMS 
FLOW CHART 



(71a) dD^-^-^AR 



3Z 



(AR)- 



-{>AR 



E 



Error Exit* |$2_C (AR) < 0? J 

1 V ^ 



(83) 
(86) 
(89) 
(93)-(*2>) 

(^8)-(13) 

x>l 



Jfc. 



Oo-oo)- 



-OAR 



£ 



OOOOOSl-^^-OAR* 



5" 



Exp - (AR) ^> 21,02 



Calculate v - u*/2~ 



Evaluation of 
polynomial (loggsu.) 



<* 



x<l? 



3 



X 



<1 



(29>-(#) 



2. 



Complement loggu 



1 



1 



(59) 

(61) 

(6U) 

(25) 

(U) 
■0 



(27.00) 



"O 21.00 



I 



0000007' 



-{>AR 



3 



0000001 020.00 



j£ 



(*)- 



-£>ID 



I 



Shift (1) 



A 



31.00 - 0? 



5 



(ft) 



92) 



3E 



1 



8000000 O Pl^ 



ID OPN* 



± 



01) ^ (AR) » OT^ jgLfrl (PN)-~OA 

g "0 



Ok) 

11) 

37) 

39) 
57) 



(FN)- 



->MQ 



5: 



0000087-^-0 AR 



(AR). 



-OAR 



jCzi 



-OA 



3 



27 r 



-021q 

3l 



62) ^g 10 ) (log^j (iog ? ) 

HuTT 



h X lo Kio 2J . 



Exit 



b 7 lQ gi o e 
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Pift _L el 

Da! 1 !; f> *for« 

Llni 19« 



>9. 



L 



pr«d 
k 



N 



NOTES 



00 it ,26, 



17 ii 



36 



42 



62 



71 , ,72 



,74 



75 



,70 



,80 



,82 



! 26 



.83 



.86 



88 



.89 



.93 



.96 



98 



79 



82 



,84 



.99 
.02 



,10 



FORM 

ICD 

10S-17.8 



,16_ 
.27 



,34 



,38 



,88 



,90 



02 



(Entry for Log. 2 x«) 



42, 



0,19, 



42 



71 



74 



78 



80 



82 



26 



86 



89 



.93 



96 



0,19, 



0,28 



4,21 



025 



28 



22 



.0 



98.02 



u 



04 



12 



20 



32 



36 



40 



1C 



,16 



27 



,34 



38 



43 



.4 



,20 



,30 



19 



28 



26 



19 



.4 



25 30 



28 



Sub-exit command ■ (19*26) — OAR 



(Entry for Log x) 

6 



20 
19 



Sub -exit command « (19»36> — OAR 



Sub-exit command » (AR) — <> 19.62 



(Entry for Log.g x«) 



25 



28 



Sign and most significant digits of mantissa — (•, AR 



28 



Reverse sign 



31 



Argument x \ 1 



/(ARK l] 



31 



(x < 0) Error Exit 



28 



(x > 0) 



,29 



.0000081 



,21 



Exponent — •£> 21.02 



31 



.26 



.26L24 



5 26 
7,24 



5 26 



4,21 



,25 



30 



21 



26 



u/4 



,3z9xz40 



V2/4 



..5u82799 



(u + nT2) / 4 



(u - /2) / 4 







WW* 

G- 

RAK 


150 

I PROIUM : Int 
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o 


PROS 


™^iSM t»t Am«lot 4S • Col I f or n lo 

PrtMrtri l» Alfred J. da Coeta 
P.rcom 1000 (t).f.) LOGARITHMS SUBROUTINE, 


2 5 
M|i _ of 

Dili: 6 Mar. 59, 
Line 19. 




I 


P 


Tor 

Lk 


N 


c 


S 


D 


BP 


NOTES 




43 ! 


. 


v6, 


52. 


5. 


25, 


31 




v - (u -/2) / U*/S) 






52 


■ 


56, 


58. 


4. 


24. 


21 








58 


i 


60, 


65, 


4, 


21, 


25 








65 


i 


v4, 


76, 


0, 


24, 


31 








76 


* 


80 


84, 


4. 


26, 


22 




v* 


i 




84 


• i 


85 


90 


0. 


19, 


28 




Pick-up command C>AR 




90 


• 


94 


97 


4 


19, 


25 








,94 
















.Z20a8x8"| C(rf 




.93 
















.Ouy7388j 




















(Loop Ii Polynomial Evaluation.) 




w 


.97 


• 


,uO 


,00 


,4 


,22 


,24 




v2 




.00 


* 


,02 


.02 


,0 


,31 


,31 




■ - ________-.-_————— 




K85 





,30 


.33 


.4 


.19 


,26 




Pick-up command exeouted from AR 




.33 


* 


,v4 


.44 


.0 


.24 


.31 








.44 


• 


.46 


,50 


,4 


.26 


.25 


, 






.50 


• 


.56 


.60 


.0 


.19 


.29 




| 




,36 
















4 780000 | 




.60 


• 


.72 


.72 


.0 


.22 


.31 




(AR)<0? 




.72 


i 


81 


97 


,3. 


,19 


29 




(>, 0) w r" of pick-up cmd, is reduced by 2 


> 




,81 
















.8000000 j 




















(Exit from LOOP I.) 






,73 


3 


,76 


,79 


,4 


,21 


,24 




(<0) v -OMQ 


i 


^ 


.79 


* 


,v4 


,87 


.0 


,24 


,31 




f 


,87 




,88 


t 91 


,4 


.26 


,26 




i 
i 


FORM 

BCD 

101-17.0 












| 
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Lit Aniolti 45, CalltiMiJ 



G-15D Prinrol fcf AIfred J * da CoB ta 

PROGRAM PROBLEM! IntnrcAm 1000 fD.P.V logarithms SuhrniiH.ni>. 



L 



91 



03 



09 



13 



20 



24 



28 



35 



.29 



40 



47 



51 



55 



,59 



61 



.25 



FORM 

ICO 

101-17.0 



P 



63 



64 



12 



.41 



.49 



53 3 



81 



nr«| 
2* 



03, 



10 



06 



22 



28 



32 



36 



42 



48 



02 



60, 



N 



09,0,19, 



13 



20 



24 



28 



59 



40 



47 



51 



55 



56 ,59 , 



61, 



63 



,64, 



,12 



,25 



28 



02 



52 



54 



4, 



0, 



1, 



0, 



5, 



7, 



5, 



5,, 







26 



26 



21, 



22 



24 



3( .3! V.2I ,2]i 



24 



26 



26 



26 



30 



24 



31 



28 
31 



21 



30 



21 



,28 



,19 



,0 



41 



.4 



49 



.53 
.92 



54 a ,81.92.0,19,26 



.0 



.0 
.0 



28 



27 



19 



21 



26 



,31 



28 



31 



BP 



N T E $ 



Add 1/16 



.1000000 • 1/16 



Multiply by 8 



exponent 



:<1? 



(x >,.!) Skip to $9. 



(x<l) 



21 



28 



20 



25 



31 



27 



28 



Meree characteristic and mantissa 



.0000007 



.0000001 



(LOOP II: Addition of powers of 2.) 



(31.00) ^ 0? 



(-0) Skip to 92 



(¥0) Add 1/2. 



.8000000 



P«l« 2- cf !_ 
Lilt 19. 



o 
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Lit Audit U.eillfirRll 



Q-15D >fttlf>< >» Alfred J. da Coa ta 

PROGRAM PROBLEM: Intercom 1000 (D.P+) Logarithms Subroutine. 



M|l i_ Of _i 

Btt t! 6 Mar. 59. 

LiM 19. 



L 






N 



'Tip 



NOTES 



92 



94 



01 



25 



30 



,01 



02 



04 



, 28 



2.7 



(AR) f 07 



,05 J 



08 



25 



26 



21 



w 



(Exit from Loop XI.) 



,04 j 



08 11 



,11 



18 



19 



26 



24 



19 



28 



(-0) 



\^ 



,18 



,0000087 



,19 



98 



37 



27, 



31 



,37 



38 



39 1 



,39 



,45 



,46 



.48 



.57 



.62 



.66 



.67 



40 



49 



,60 



.36 



.68 



.69 
.70 



9 ,68 



FORM 

•CD 

tfll-11.0 



,75 



.77 b 



,45 



,4 



,57 



,0 



,62 



,66 



70 



.70 



,75 



,21 



.80 



28. .28 



24 



21 



19 20 



-.zzzzzOO 



-.zzzzzOO 



,0, 



27,21 



,4, 



19,25 



77 



21 



80 



.4 



.19 



.0 



19 



20 



20 



(Exit for Log. to hthe ba se 10.) . . . 

IThia command mav be replaced b? c6taraahd 16 oT 36. 

Log in 2 — .{>id (See cmda 08, 17/ »_»__ 



,25 



23 



31 



.31 



,9z8007z 



,9u209u8 



f 



I*«10 2 



(Exit for Log. to the base e.) 



,zu3vx80 
,v17217b 



} 



Jjoj^. 
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1 


PR0< 


2tcom 1000 


III Ansoloi 4S, CilllirNll 

Friparid ky Alfred J, da Costa* 
(D.P.) Logarithms Subroutine. 


Nfi JL. of ll 
Data: 6. Mar. 59. 






L 


P 


Tei 


N 


C $ 


D 


BP 


NOTES 




















(Exit for Logarithms to hase 2,) 




.26 


i 


,01 


,01, 


0,20 


,31 










































(Polynomial Constants •' 






,06 














,95z6y40 \ c r 






.07 














. 5*551x9' 


























.14 














,2613xz0 I £ 7l 






.15 














lyw709x ' 
























N-y 


.22 














803w510 ^ q^ 




.23 














-127777a J 






















.30 














,x9v77y8 -) C( 




.31 














.0x2w6wx/ 
































































































































L^ 
















! 






















FORM 
ICO 

ni-11.1 






















MEMORY ALLOCATION CHART P«ne 29 of 101 



Problem 



^ Prepared by 



Alfred J* da Costa* 



{- 



I NTERCOM 10Q0 (Double Precision) Paee _J_ ofJL. 



LQCARITHMIC SUBROUTINE 



Cheok Sura 



. 1000603 



Date Mar ' 6 > 5 9 » 
Line 19 





U7 ,, 
1000603 


U6 

3u9vvuu 


U5 

5930619 


U4 






U3 


U2 


Ul 


UO 




99 

-5u82799 


98 
3z9xz40 


97 
-y4002x8 


96 
-v20227u 




95 

uy7388 


94 
zz0z8x8 


93 

26035z 


92 
-xyOU3y 




91 
830927y 


90 
-xy61279 


89 
5v5x795 


68 

81 




87 
-5u5v35u 


66 

x859y7x 


85 
-9y2127u 


84 

565u27w 




89 

55563xw 


82 

-lulu29z 


81 
8000000 


80 

52522xz 




79 

7257318 


76 

5050z9w 


77 
-505029z 


76 
-X054356 




75 

1515292 


74 
4w4y33w 


73 
-ww4z2v8 


72 
xl61y7x 


Pour-Word Lines 


71 

-4u4u2v9 


76 

wv4x277 


69 
vl7217z 


68 

zu3vx80 




Line 


3 


2 


1 





67 
9u209u8 


66 
9z8007z 


65 
724w3lz 


64 

8wl.9274 


^Nrt* 


y 










63 

7 


62 
-W246279 


61 

vz40y7w 


60 
48482xz 












59 
3x3x375 


58 
-vw412v9 


57 
vw3y375 


56 
7800000 












$$ 

393v79w 


54 
xl5w27u 


53 
375w39w 


52 
-v83u315 












51 

23735s 


50 
v83w27x 


49 
v4353zv 


48 
-zzzzzOO 














47 
-3233755 


46 
-zzzzzOO 


45 
3139274 


•uy32359 












43 
-743473z 


42 
vy47393 


41 

23135z 


40 

-uu2z75u 












39 
-2u2x315 


36 
-u82v2vu 


37 
272779W 


36 
-W446279 












35 

-2628zly 


34 
-U426755 


33 
722w31z 


32 














31 

x2w6wx 


30 
x9v77y8 


29 
-2023339 


28 
-u03v715 












27 
-2022zly 


26 

10129z 


25 
-9w292v9 


24 
lwlw2xz 












23 
-127777a 


22 
803w510 


21 


20 
96186vw 












19 
622537z 


IS 

87 


17 
u42u27w 


16 

-94W759 




/ 










lyw709x 


14 

2613xz0 


13 
61435z 


12 

1 


^. 










li 
9213y7w 


10 
-8wl033y 


09 

- w0x358 


08 
9u2u27w 












07 
5w551x9 


06 
95z6y40 


OS 
-8819355 


04 
-880v358 




. 








03 

1000000 


02 
*840u358 


61 
30439v 


00 
2023zs 
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6* Exponential 

^ 

6.1 Specifications 

ENTRY* Loc, 72 for logxox (word position to be used in 
"Perform Subroutine* Command, - 72) 
Loc 22 for loggX (word position to be used in 
•'Perform Subroutine" Command, - 2.2) 
Loc, 08 for log2x (word position to be used in 
"Perform Subroutine"' Command, - 08) 

EXIT: Transfer to L. 00„01, A return command can then 
be inserted either in loc. 89 or 79 of this sub- 
routine* (See coding sheets). 

ERROR EXIT: There is no error exit in the subroutine itself. 

ERROR INDICATION: If n>lo3 8 , the multiplication subroutine will 
set up the error indication. 

DATA INPUTt 21.00,01 ("A" Register) 

DATA OUTPUT r 21.00,01 ("A" Register) 

RANGE OF ARGUMENT: -10"3 2 x 10^8 (approximately) 
If x -lQ-32 y the output is made 0. 
(^ If x lOr , error exit. 

EXECUTION TIME j Approximately 25 drum cycles. 

ACCURACY* Correct to at least 11 significant figures. 

SHORT LINE 

LOCATIONS USED: Line 20, words 0, 1, 2, 3 

Line 21, words 0, 1 

Line 22, word 1 

Line 23, word 3 

LOCATIONS NOT 
USED IN LONTT 
LINE: OU, 26, 28, 39, W>, 51, 5b, b5, 71, 96, u0-u7. 

CHECK SUMt 100060U (Appendix I) 
100150U (Appendix II) 

REMARKS t Since locations u0-u7 are not used, this subroutine 
imposes no restriction on the use of the index 
registers, and it may be loaded by typing h CI tiO 
instead of h CH 00. 

APPENDIX II 
( VERSIONS (1) Change source or destination 19 to 05 in the 

^ following commands? 02, 03, 08, 09, Hi, 22, 29, 

UO, U7, 53, '62, 6U, 73, 7U, *S, 8U, 85, 90, 93. 



w 



K^ 



Page 31 of 101 
(2) Change characteristic 6 to 5 in commands 59 and 67* 
6.2 Method 

Where e x or 2* is required, the argument x is first multiplied by 
loglO e or by logio^* Th« problem then becomes, in all cases, one 
of evaluating a power of 10, 

The argument is reduced to a fixed point number u, and 10 u is 
evaluated by the following polynomials 

10 u - (C ♦ C x u ♦ C 2 u 2 ♦ ... * C 10 u 10 ) 2 , 
which is valid for 0^Tu<l. 

Since x « u«2 p , (p integral) we have 10* - (10U)2p. 

Hence, for values of x outside of the basic range, 10 u is squared 
p tines* 

If x is negative, the reciprocal is calculated. 

The following constants are used* 



°2 



u 7 
c 8 

C 9 
c 10 



1.0000 
1.1512 
.6627 
.2ft3 
.0732 
.0168 
.0032 
.0005 
.0000 
.0000 
.0000 



Decimal 
0000 
925U 
3726 
3U81 
0353 
5525 
3572 
2921* 
7978 
07U6 
0202 



00000 
6U923 
1*21*12 
1*6386 
62839 
6081*8 
296U5 
81*557 
19707 
71*589 
15778 



Sexadecimal 


(Scaled 2"** ) 


1000000 


0000000 


-126wlv 


76u0l*30 


Ou9u926 


77830x8 


01*11*16 


3y3681*w 


-012vx77 


ll*9l*z0z 


OOl450uO 


8vl*w27 


OOOxljOy , 


x89a;738 


00022uz 


ul9y0wtt 


-000053u 


90y8al7 


000007X 


90zvw7« 


-0000021 


x538983 



(With acknowledgment to Mr. E.T. Fedrighi, Dept. 1*70, Bendix 
Radio Division) 



O 
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^ 






^ 



6.3 INTERCOM 1000 (D. P. ) EXPONENTIAL StBROUTINE 

FLOW CHART 



($) 



Multiply x 



by log 10 e J 



f (72) J 




Multiply x by logj^ 



£_ 



I 



:>a 



r~x - 0? ^) JL -^-°--£>| Ans - - 1 L^l Exit ~] 

zsX — — 



<0 



Store switch coamand 



3 



x>-32 



v x< -32 



I 



Y xi-32? \ o Ar^ fi . - 



Store Su. Cad Sg 



p£0 - 



2 



Exit 



Exponent (p)< 0? \ 



p<0 



1 



Store p 



I 



Convert x to fxd. pt. 



Set p » 0. 



Evaluate BtJlynomial 



I 



Convert (A) to floatingl 
point . ——J 



(p»o? y 



Square (A) 



JZ 



Sw. Cmd. S 3 or S 2 OAR 



p-1— £>p 



| Sl 

I (x>0) 



N»C» from AR 



£ 



s 2 



(x<0) 



Exit 



Calculate the re- 
einrocal of (X) 






Exit 







fi-1* n 


C3^TiAm1 
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^ 




PfftMfid h* Alfred J. da Costa. 


Data:30 Mar. 59. 
LI Hi 19. 




PROGRAM PROBLEM: Intercom 1000 (D.P.) Exponential Subroutine, 




L 


P 


Toi 


N 


c s 


D 


BP 


NOTES 


















Entry for 2* 


y 




08 


! 


32 


47.^ 


».19, 


25 










.32 














,9z7v57z ( 106^2 




.33 














.9u209u8 1 




















Entry for e x 




22 


I 


44 


hi, I 


f,19. 


25 








.44 














,26x357e | log 10 e 






.45 














•,xy5vx8u J 


< 

._ _ , ( 




47 


I . 


50 


62, ( 


),19, 


20 




* 




.50 














-.zzzzzOO 




V 


62 


1 


67 


68 C 


),19. 


23 




Return command — "* 23«03 1 




68 


> 


60 


80 i 


*,20 


31 




To floating point multiplication 


i 




67 


» 


92 


92 ( 


> 20 


31 




(Ret. Command) N.C. 19. 72 (read at T - 


UT) | 


















Entry for 10* 




,72 


i 


73 


74 ( 


) 21 


27 




x/ ? 




.74 


i 


76 


b89 i 


f 19 


21 




(x = 0) 1— >A 




.76 














.0000081 | 1 




.77 














.8000000 i 






.89 


s 


01 


,01 ,( 


),20 


.31 




Exit 






















.75 


s 


76 


,80.( 


).21 


28 




(x y o) 




.80 


• 


85 


.85. ( 


).22 


31 




x< ? 




( 


.85 


8 . 


89 


.11. ( 


).19 


.22 




(x>0) Store switch command S-l (*-- Exit Command) 










; 










FORM 

ICO 

MI-17.0 
















■ 
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Lit Adtilii 4S, Cillfimli 



*•«• JL flf JL 



g «g D Prtptrtd by Alfred J. da Costa. OaH: 30 Mar. 59. 

MOQRAM PROBLEM : Intercom 1000 (*>.?«> Exponential Subroutine. LI,, 19. 



L 



.36 a 



90 



92 



94 



98 



02 



04 



26 



89 



03 



11 



,14 



,13 



16 



,20 



,21 



,27 



.35 



.38 



.40 



.64 



FORM 
ICO 

101-17.1 



.87 



.91 



38. 



.96 



'sS 



>0. 



92 



02 



04, 



N 



I, 



94. 



98. 



0. 



02. 



26. 



29.89. 



01,01.0, 



!8. 
19 J 



0. 



0. 



0. 



$ 



!l 



30. 



22. 



19 



29 



09 



12 



15 



20 



23 



24 



,27 



,v6 



,36 



39 



60 



84 



11 



14 



16 



3 



20 



40 







,4 



,33 



.38 



,40 



64 



.87 



.91 



88 



93.93 



0. 



,0 



,5 



.0 



.4 



.0 



20 
19 



30 



19 



22 



28 



21 



26 



25 



29 



19 



,19 



.4.21 



31 



28 



29 
31 



21 



DP 



21 



31 



22 



28 



29 



31 



20 



25 



31 



21 



20 



25 



28 



24 
31 



NOTES 



(x<0) 



.0000086 



Characteristic < 6 t 



(*«) 



(x » 32} 



.0000001 



Exit 



(-c 6) store Switch and B 2 - (19*09) 



. 000007 t 



p - (AR) < t 



( £ 0) Store p— *» 20.03 



(N.C. 1*0) 



(<00) 



Convert to fixed-point fraotion 



Set p ■ 



Cio 



•ID 



Coefficient selection command— ->.AR 



LOOPHi 



Lo of-> X 



m 
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Lit Anfilit MtCHIfirili 



Fill 2_ of ±L 
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»r>airarf k« Alfred J. da Coata. 
q-1 5 Prtpifii if 

PROGRAM PROILEM : Int«£con 1000 (P.P.) Bxpenentlal Subrcutlne. |j M 19. 



L 



84 i 



57 



69 



73 



&L 



83 



88 ii 



' 



93 



,95 



97 



,05 



,10 



,17 



.23 



.29 



.41 



.52 



.70 



,53 



.68 



.34 



.59 



FORM 

ICO 

IM-1T.I 



.58 



k 



u 



v4. 



56, 



70, 



81, 



87 



90 



,93 



95 



97 



98 



06 



10 



12 



20 



24 



,34 



,43 



,53 



,72 



.59 



.8( 



.7£ 



.59 



N 



57. 



69. 



73. 



83. 



87,0. 



,4 



3 



05 







17 



23 



,29 



.41 



,52 



.70 



.72 



.68 



.8( 



.n 



.63 



4. 



19. 



0. 



24. 



4. 



3. 







,4 



,0 



,0 



.0 



.0 



.0 



.1 



.6 



.3 



S 



26 



31 



26. 



19. 



29. 



25 



19 



27 



28 



28 



24 



27 



21 



,19 



,20 



22 



.31 



19 



.2( 



.20 



20 



E 



25 



29 



31 



24 



28 



31 



21 



21 



25 



20 



,27 



,28 



.31 



,23 



.3 



.31 



.28 



NOTES 



q 



PN 



( executed from AR) 



.0600000 



Overflow t 



(Exit from loop if set) 



Exit from Loop I 



.0000084 



Normalize 



LOQF^II */> 21 



-msbeOO = (19. 3*0 20«02 



p y ? 



(■ 0) Switch command 6^ or 83 



,AR 



N.C. from AR (Either exit or 09 below) 



{4 0) Ret. command —v 23»03 



To floating point multiply 

••BSSZftOO 



(Ret command) N. C. 10. 58 (read at T ■ u7) 

-p — vAR . 
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Lot Anfiln 45, eilllimli 

P«M ± of L. 
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PROGRAM PROBLEM : Intercom 1000 (Double Precision) Exponential Subrouting! m . 



L 



Tor 



N 



NOTES 



63 



02 



66. 



0. 



26. 



31 



-p+ !■ 



•AR (complemented) 



66 



68.99. 



1. 



28. 



28 



Ba complement 



99 



u3.23. 



2. 



28. 



20 



AH 



20. u3 



(End of Loop II) 



Final Commands for x^O 



09 i 



76. 



78. 



4. 



19. 



21 



(Switch B 2 ) 



78 



79. 



82. 



0. 



19 



23 



Exit command' 



23.03 



To obtain 



82 



84. 



84. 



4.20. 



31 



To floating point division 



reoiprooal 



79 i 



21,21 



0. 



20. 



31 



(Exit command) (read at T - u?) 
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PROGRAM PROBLEM Ilntercom 1000 (Double Precision) Exponential Subrouting it 19. 




L 


P 


Tor 


N 


C 


$ 


D 


BP 


NOTES 




















Polynomial Constants. 




.00 
















.0000000 




.01 
















.1000000 




.06 
















.76u0430 




.07 
















-,126wlv 




.12 
















.77830x8 




.13 
















,0u9u926 




.18 
















,3y3684w 




.19 
















,0411wl6 




.24 
















.1494z0z 


o 


.25 
















-.012vx77 




.30 
















,8v4ww27 1 




.31 
















,00450u0 




.36 
















,x89e738 




.37 
















.000x40y 




.42 
















.ui9y0wu 




.43 
















.00022uz 




.48 
















.09y8zl7 




.49 
















-.000053u 




.54 




■ 












»90zvw7z 




.55 
















,000007x 




.60 
















.X538983 




.61 


, 














- .0000021 


w 
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Problem 



Prepared by Alfred J. da Costa* 



Four-Word Lines 



Lint 



K^ 



3 



^w' 



{■ 



Intercom 1000 (Double Pr ecision) Page 1 of 1 

— — ■— ■«! n n i ■ ■ mm i ■ ■■ i iiiiw" ' ■■'■■ — '■ " ■■■■■ * * —mmmm* ■■■■■■■» , 

Exponential Subroutine. Date 3 ' 14 '5 9 » 



Cheok Sum .1000604 



Line 



19. 



U7 



1000604 



U3 



99 

y717v94 



U6 
-7v896y4 



U2 



9T 



84 



91 
5x5x3 zz 



87 

-5u5v2v8 



83 

57573vz 
75 

151529z 



75 

4x50 2vw 
71 



98 



2022xz 



y0623xx 

S3 

xw5yy7w 



86 
x85uv95 



82 
-5454292 



7(5 
5052277 



67 

•5w5wu9* 



63 



242352 



59 

-4y4yu9z 

n 

7x 



irr 



Tf 

v23y274 



?r 



22uz 



3T 



13 

-2626735 



IT 



45Clu0 



27 

7423352 



13 

-Iulx2v9 

ii 

411wl6 



72 



I 



x0y3xw 



67 
"126wiv 



6T 

890V276 



n 

-ww59275 
72 

48483«2 
He 
w46379w 



62 
W344277 



58 
3w3zy9w 

w 

90zvw7z 



V5 
5933019 



97 
62 5 3 ,7ft . 



93 
xz61y7w 



89 

101292 
69 

x90v276 



U4 



U0 



96 



5F 



M. 



86 

-xu5x3 

84 

383927u 



81 



600000 



rr 

8000000 



73 



x!53y7x 



6T 
4849359 



6T 



61 



21 



57 

7245312 



3(5 

-ZZ2ZZ00 



W 



42 
ul9y0wu 



3d 
28283v4 



31 
-zzzzzOO 



30 
8v4ww27 



26 
9x593v5 



-uw2z279 

is 

3y3684w 



14 

1010y7x 



TS 

h8wll715 



76u0430 



^ 

841u275 



w 44277 
^ 

53u 



4l 

•xy5vx8u 



uv3429v 



x40y 



33 
9u209u8 



29 
U229274 



25 



12vx77 



21 
981v2v9 



17 
9417375 



u9u926 



■7J5 

■ww4y275 



oT 



70u79w 



01 

1000000 



80 
55552x2 



TV 



81 



72 
4u4u2vv 

u 

505029s 



6T 
x45727w 



60 

X538983 



se 



62 

36462XW 
41 

9y8zl7 



44 
26x357z 



40 
■vw40279 



36 
x89z738 



32 
9z7v57z 



28 



24 
149420Z 



20 
9728394 



16 
14142xz 



12 
77830x8 



OT 

u02z279 



6T 



W 
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7. Sine, Cosine Subroutines 
7»1 Specifications 
ENTRY: 



EXITS 

ERROR EXIT: 
DATA INPUT: 
DATA OUTPUT: 



Loc 39 for sine, degrees. 
Loc. 23 for cosine, degrees. 
Loc U2, for sine, radians. 
Loc. 26, for cosine, radians. 

(Loc. 93) to 00.01. 

(Loc. 61) to OU .63 (Normalize) (See coding sheets) 

None 

Angle (6) in degrees or radians in 21.00,01 

Sine 9 or cosine in 21.00,01 



EXECUTION TIME: Approximately 18 drum cycles. 



ACCURACY: 



Error < 10 



-12 



SHORT LINE 

LOCATIONS USED: Line 20, words 00, 01, 02 

Line 21, words 00, 01, 02, 3 

Line 22, word 00. 



LOCATIONS NOT 
USED IN LOSS" 
LINE: 

CHECK SUM: 
REMARKS: 



APPENDIX II 
VERSION: 



u0-u7 inclusive. 

100160$ (Appendix I) 
1000505 (Appendix II) 

Since these new versions do not use locations 
u0-u7, they may be entered into memory by typing 
5 CH uO instead of 5 CH 00, and any index register 
may be used without restriction. 



(1) Change source destination *19" to lt 05* in the 
commands: 13, 16, 20, 22, 23, 25, 26, U3, U9, 52, 

59, 65, 66, lk> 83. 



(2) Change characteristic "6" to n 5* in command 71. 
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7.2 Method 



The argument, A, given in degrees or radians, is first transformed 
to measurement in units of circles with a floating point division 
by either 360° or 277'radians, respectively. The result is then 
shifted to a fixed point fraction, eliminating integral numbers of 
circles which do not affect the sine or cosine function. If the 
fraction of a circle is negative, it is complemented. If cos Jt is 
desired, 1/U (circle) is added, ignoring overflow. Let the result 
be called A', 

An argument, u, is determined such that the desired function (sine 
or cosine) of A equals sin u, where u is expressed as a positive 
or negative fraction of a quadrant. The most significant bit in A» 
represents the sign of u. It is brought into the sign position by 
end carry when I AM is added to itself. The next most significant 
bit is then carried into the sign position by a second doubling of 
absolute value. If this result is -#0, then sin u - Oj if the 
result is -0, then sin u • *1. (Note that a correct sine or cosine 
is obtained when the original argument, A, was exactly on the 
boundary between any two quadrants.) 

The overflow indicator is turned off. 

If the last addition does not yield *0, the sign formed by end 
carry determines whether or not to complement the remaining 
W bits (now shifted two places left from their original position 

in "A) to form |u.| 

1/2 sin u is approximated by a 15th order polynomial of the form 

u Z2a Cjl (-u 2 ) 1 " 1 , where 
i-1 

2C X - 1,57079 63267 9U1 

2C 2 - .6U596 U097U 985,' 

2C 3 - .07969 26262 378 

20^ • »00U68 175U1 330 

2C$ - .00016 0UU11 7U8 

2C 6 - .00000 35988 183 

2C ? - .00000 00568 887 

2Cq - .00000 00006 U56 

In evaluating the polynomial, time is saved by performing two 
w double precision multiplications in a loop of three drum cycles. 



^ 



^w 
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7.3 INTERCOM 1000 (D. P>) SINE f COSINE SUBROUTINE 

FLOW CHART 



(39) Sine (Pet 
— 022, 



ln« (Peg) 
UCO | 



(23) Cosine (Peg) (1x2) Sine (Rad) (26) Cosine (Rad 



lA— 022.00 
ik-)) b 



(U2) Sine (Rad) (26) Cosine (Rad) 
[o-022.00 | 1/U— -022.00 | 



360 






..(56~71ft/ 

A-f (idH>aL 



j£Ji3LL 



n 



2ir—^W 



(P3-27?fr 



Unfloat A 
(38-66 )fr 



Argument now fraction of a 
circle | fixed point. 



A ♦ (22.00) — {>ID 



(70) <7 



Exit Comm— 023.02 



(7^-92)^ 



Sign 



-021.02 



iifi=?e)fr ., 



u-OMQ 



(02) ^_ 



1/2 f(A) -ttj 0* (-u 2 ) 1 " 1 
i-1 



Overflow off 



1PU,0$J^ 



tlU-211 



♦ l- — OF 



Exit-{>00.01 




No 



drant 
Boundary 



i-111 



^ u— 021.00,01 



2: 



u ? — 021.02,03 

(1?-fflfr 

1/2 f (A) OMQ 



129*2 



-OAR 



T 



lExit O0U.63 

Normalize 
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Los Anplil 45, Calllimli 



G-15D PriMfH >» S ' H ' LewUt 

PROGRAM PROIUM I ntercom 1000 (P.P.) Slne-Coslne Subroutine. 



Pi»i _L 01 i. 

Bltt , 17 Mar. 59 . 

Lin I*. 



L 



Peri 

k 



N 



NOTES 



39 



40. 



43. 



0. 



29. 



22 



(Slne« degrees) Clear 22,00 



23_ 

43 



40. 



43. 



D. 



19. 



22 



( Cosine t degrees) lA — C> 22,00 



46. 



56. 



A. 



19. 



25 



360 ■ (19.1*6,1*7) 



OP) 



42 



.44. 



49. 



0. 



29. 



22 



(Sine, radians) Clear 22,00 



26 



49 



40 



49. 



0. 



19. 



22 



(Cosine, radians) lA C>22,00 



50 



56. 



4. 



19. 



25 



ITT 



(lg.gOjgt)' 



OID 



W 



^ 



56 



65 



94 



71 



03 



13 



17 



25 



29 



44 i 



,88 



.90 



.96 



.99 



45 i 



.00 s 



FORM 
•CO 

101-17.1 



01 i 



58.65.0. 



71 



ul.ul. 



,08 



21, 



14, 



20 



28 



31 



08. 



94J 



23, 



13, 



17, 



25 



29 



0.19. 



4. 



6. 



0, 



3, 



4, 



20 



23 



Extractor -zzszbOO » (08, $8) l>20,02 

Return Cmd, - (19.71) 023.03 



21. 



31 



Exit to floating-point division 



21J 



31 



(Return Command) N.C. 19.03 (from 23«u7) 



30, 



28 



(30,00) OAR 



19- 



29 



,0000080 « (l9.Hi) — ~ C>AR* 



31, 



25 



019,26 



46 



89 90 



92 



98 



,uO 



44 



96 



98 88 







5 



22 31 



25 



26 



,96,6 



.99 



.00 



04 



25 



.3 



.0 



04,38 



06 



4 



29 



30 



31 



28 



30 



23 



26 



4)26 



(31.00,01) 



<r>iD. 



Round-off - 2*U9 - (19,26) £>PN f 



(AR)<07 {Angle <. 1/2 circle?} 



UP) f0>..l/2) (ID)-t>PN» 



jK 0) [o< 1/2J Reduce to fixed-point fraction 



31 



28 27 



21 



24 



Clear AR 



ID 



-OPN* 



Slgnlf. digits » (PN Q 02) PN p {(02.98) » .OOOOlag^ 



(AR) f* 0? 



(*0) (0<lj (PN)— QA /N.C, 19.38) 



WfO-^lf (PN)— OMQ 
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Pi»i _L 01 i. 

Bltt , 17 Mar. 59 . 

Lin I*. 



L 



Peri 

k 



N 



NOTES 



39 



40. 



43. 



0. 



29. 



22 



(Slne« degrees) Clear 22,00 



23_ 

43 



40. 



43. 



D. 



19. 



22 



( Cosine t degrees) lA — C> 22,00 



46. 



56. 



A. 



19. 



25 



360 ■ (19.1*6,1*7) 



OP) 



42 



.44. 



49. 



0. 



29. 



22 



(Sine, radians) Clear 22,00 



26 



49 



40 



49. 



0. 



19. 



22 



(Cosine, radians) lA C>22,00 



50 



56. 



4. 



19. 



25 



ITT 



(lg.gOjgt)' 



OID 



W 



^ 



56 



65 



94 



71 



03 



13 



17 



25 



29 



44 i 



,88 



.90 



.96 



.99 



45 i 



.00 s 



FORM 
•CO 

101-17.1 



01 i 



58.65.0. 



71 



ul.ul. 



,08 



21, 



14, 



20 



28 



31 



08. 



94J 



23, 



13, 



17, 



25 



29 



0.19. 



4. 



6. 



0, 



3, 



4, 



20 



23 



Extractor -zzszbOO » (08, $8) l>20,02 

Return Cmd, - (19.71) 023.03 



21. 



31 



Exit to floating-point division 



21J 



31 



(Return Command) N.C. 19.03 (from 23«u7) 



30, 



28 



(30,00) OAR 



19- 



29 



,0000080 « (l9.Hi) — ~ C>AR* 



31, 



25 



019,26 



46 



89 90 



92 



98 



,uO 



44 



96 



98 88 







5 



22 31 



25 



26 



,96,6 



.99 



.00 



04 



25 



.3 



.0 



04,38 



06 



4 



29 



30 



31 



28 



30 



23 



26 



4)26 



(31.00,01) 



<r>iD. 



Round-off - 2*U9 - (19,26) £>PN f 



(AR)<07 {Angle <. 1/2 circle?} 



UP) f0>..l/2) (ID)-t>PN» 



jK 0) [o< 1/2J Reduce to fixed-point fraction 



31 



28 27 



21 



24 



Clear AR 



ID 



-OPN* 



Slgnlf. digits » (PN Q 02) PN p {(02.98) » .OOOOlag^ 



(AR) f* 0? 



(*0) (0<lj (PN)— QA /N.C, 19.38) 



WfO-^lf (PN)— OMQ 
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G-15D 
PROGRAM PROBLEM 



Lit Angalii 4S, Cillfimli 

Milan* If s. H. Lnwia. 
Infrcom 1000 (P.P.) SINE>C08INK Subroutine. 



Mil _JL of JL 

n>t ., 17n Mar. 5 9 j 



L P 



06 



,07 



Fid 
k 



09 



N 



S 



28 



S5P 



28 



NOTES 



- (AR) 



^>AR 



09 



,96 



,27 







26 31 



Shift out whole circles 



27 



,28 



38 



4 



24 



,21 



Fractional part of £>A 



38 



,40 63 6 



22 



26 



(22,00) -l^^PK! 



{o if aln, 1/U if cosine) 



63 



64 



66 



21 



30 



■ (A)— 1— frPN* (o in circles] 



,66 



68 



70 



4 



26 



25 



8 * (PK)-OID. 



/Clears PH? 



,70 



71 



75 







08 



23 



Command (08.71) 1> 23*03 



75 



• u 



80 



82 



6 



25 



30 



28 (mod. 1) » 2(D)) E>FH« (8 in half -circles) 



82 



86 



89 



26 



21 



Slen- 



-{> 21.02 



89 



90 



93 



26 



25 



28 (mod. 1) » (PN) OID (PK cleared) 



,93 



u 



98 98 



,98 



02 , 



04 



)4 s 



05 



,07 



,10 > 



uO 



02 



23 



lo 



,04 



06 



07 



08 



10 



12 



73 



174 



91 



,95 



80 



26 



29 



6*o7.o.:;i*;:5 



,73 



1 



95 



66 



192 



FORM 
. ICO 

1M-17.I 



,11 



15 



21 



01 



91 



95 



24 



21 



ItO (mod. 1) ■ 2(ID) — OPN* {q scaled to quarter-circles) 



tt ("8 in quarter-circles) - (PN) — ^-fc>MQ 



31 



R«g«t overflow. 



25 



(Set.) 



(21.02) QID (Sign) 



(Not Set) 



24 



24 



,4 



4 



,4 



01 







12 



,15 



07 



19 



27 



27 



21 



24 



24 21 



,4 



16 21 4 



92 08 



21 



24 



21 



24 



31 



u j * 0? 

— * — 



A 



(-♦o) u A o ff 



(■0) 0* (07»B0,81) {>A 



(#) 1 * (19.86,87) C>MQ 



21 



25 



31 



♦ !■ (MQ) C>A 



Exit to 00*01 <}~ 



(/* ♦ 0) tt * (MQ) OA <J- 

tt » (A) £>ID 

Multiply 



$ 



_, 
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G-15 D 
PROGRAM PROBLEM i 



Lit Anflllt 4S , C i< 1 1 f at r H I • 



PruarH l» S. H. Uwls. 
Intercom 1000 <D.P.) SINE-COSINE Subroutine. 



PiM -2- «f JL' 
Pitt: 17 Har, 59 . 

LiM »• 



I P 



rr «rf 



N 



S 



NOTES 



08 



10. 



12. 



5.26. 



21 



u 2 . (pk)- fr 21*02*03 



12 



14. 



16 



18. 



16. 
20. 



21. 



25 



tt2 ■ (21,02,03) OH> 



I*. 



19. 



24 



C B -(1?,18,1?) -QMQ 



20 



22. 



24. 



0.19. 



28 



Coefficient Selection Cmd, » (19»22) OAR 



1 Polynomial Evaluation Loop) 



24 



26. 



26. 



0. 



31. 



31 



Obey AR 



*■ 



22 i 



36. 



41.5.19. 



41 



v4. 



48. 



48 



50 



52 



52 



53 



54, 



54 



56 



57 



7 a 



.: 



8.(4.^ .:6.: 



64 



66, 



68 



68 



69 



72 



72 



74 



74 



Ml 



80 



,83 i 



.85 . 



v4 



.92 



94 



.97 



.58 



.62 



.67 



FORM 
•CO 

111- 17.1 



.35 



84 



85 



,92 



,97 



,98 



,24 



60 



64 



92 



56 



83 



26 



0. 



5. 



0. 
0. 



4, 



3, 







_C2i. 



£>PN 



24. 



31 



Multiply 



26. 



19, 



26 
29 



(PN) 



-OPN 



,6O2u00a - (19.£3)- 



-QAR* 



22. 



31 



(ARK or 



© 



(^■o) pw — c>Mq 



21, 



25 



U' 



!* 



-MP 



19, 



29 



,31100000 



-OAR* 



31, 



31 



Obey AR 



19 



26 



C ?U1 ~± 



-<QPN 



1 19 



29 



24 



,26 



.4 



62 



.4 



67 



55 



59.4 



,21 



.4 



.0 



.26 



21 



,24 



26 



31 



24 



25 



25 



24 



31 



24 



«2y2uOOO 



QAR< 



Multiply 



PN- 



OMQ 



■OH? 



(<0) 



PN 



--OW 0- 



n • (21.00,01) OMQ 



Multiply 



1/2 t (A) • (PN) OMQ 





0-15 D 

IRAM PAOILEM : Int 


**' »-,■ <■>•*•) 




Pago Itf of 10^1 


PROC 


ercom 1000 


Lit AR|Hlt 43, CilMimll 

PriMMi by 8 - H - UwlB « 
(D.P.) SINE-COSINE Subroutine. 


M|t JL 01 i_ 

Data: 17 Mar. 59. 


L 


P 




N 


C 


$ 


D 


Bp| NOTES 


59 


• 


60. 


61. 


J • 


19. 


28 




.0000081— =--C>AR 


61 


• 


63. 


63. 


4. 


21. 


31 




Exit to Oa»63 \ To KornaliseJ 


















• 


















CONSTANTS, 
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.0000080 


18 
















,2v5x83* | Cp . ,00000 00003 228 


19 
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-.44U14u) o } • *?8$39 81633 970$ 
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.v400000' 
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.442xlB3 J 2 tT 
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,w90zxuu-' 


53 
















,602u000 
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69 
















,3400000 
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PROGRAM NOILEM : j.ni:< 


-rcom 1000 (I)..!'.) SINK-COS INK liubroiilinf . 




I 


P 


Tor 


N 


C 


S 


D 


BP 


NOTES 


1 




















! 


•■ 


7f. 
















-.1256y36 ) Cm m ^og 20U8? U92* 




.77 
















-.52uyz39 ' 




.78 
















-.wy39z31 j C| . .0023U OB770 66$ 




.79 
















.0099696' 




.80 
















-.Owy9l2y ) c ^ m #00000 lmh on $ 




.81 
















,00001y3 ' 




.84 
















-,2y2uOOO 


i 




.86 
















,0000081 J x 




.87 
















. 8000000 ^ 




^ 


















i 












































.u3 
















,9w995y Sun balances' 




.u7 
















.1001603 Check sum 


t 
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-■■- -- - - 
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FORM 
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MEMORY ALLOCATION CHART 



Problem 



Prepared by S. H. Lewis, 



{- 



Intercom lOOO (P.P.) 



Page hi of 101 
Page J_ of.L 



-Sins sJinainfl SuhrntiHnr 



Check SIM -1001605 



Date 
Line 



19. 



Four-Word Lines 



Line 



^ 



% 



^ 



sr 



U7 



1001605 



U3 



9vv995y 



99 



U6 



U2 



650039v 



W 



10l2vz 



91 
-5y5z315 



W 



8000000 



9T 



555567X 



TT 



99696 



75^ 



•5052v3y 



71 

-15t7uvz 



eT 



5w3731z 



63 



'42426vy 



W 



3x3xy7w 



•3u3v358 



w90zxuu 



47 



V400000 



K 

-uy38279 



3T 



292v3v6 



ir 



541y 



3T 



w90zXUU 



ST 



98 



9T 



■y402758 



•65652V2 



9TT 



•xw60v3y 



86 



81 



W 



X659755 



-wy39z31 



7* 



■x65v278 



U5 



Ul 

w 



•64182v9 



9T 



-6262v3y 



89 
-5w5x359 



85 



725w31z 



81 



ly3 



TT 



•52uyz39 



73 



70" 



484vll7 



eT 



-W446359 



62 



-w0432v8 



58 
-vw3y359 



er 



3839 2xz 



50" 



442x183 



41" 



89 



AT 



uw313v6 



-u83zuxu 



T? 

-1994443 



30" 



■44l2l4u 



•ly26315 



IT 



u82v276 



19 

fiT 



I2152v9 



IT 



y0z315 



m _ 

- u0u3iv 



qt 



880x3xw 



IT 



UU31276 



Ji 

-u42967u 



18 



2w5x83z 



TT 



80 



W 



8w4971v 



W 



809z9w 



5T 



•x05z0z5 



6T 



3400000 



W 



w75y277 



61 
-3z3z2vz 



57 



■3w40358 



5T 



602u000 



W 



-3438279 



45 



625835z 



TT 



723031z 



37 



33 



u335y3 



28' 



Iz2w2xz 



W 



9wlx27u 



2T 



5w0831z 



'-94l93z9 



IT 



zlly7x 



or 



60lv35z 



or 



707 2v9 



4043vs 



ol 

-8406358 



U4 



U0 



S6 



M 



y263yzz 



•xy61758 



88 



5u5u3vw 



84 



•2y2uOOO 



80 



wy912y 



76" 
-1256y36 



72 



4u4u3zz 



W 



4648y7x 



-w2442v9 



60 



81 



56 



vu41114 



52 



363627x 



41 

-v23475u 



44 
-uy6073y 



40 



4000000 



36 



•455w982 



32 
-76w77w5 



2X 



100 



24 



lulu3zz 



20 



96l827w 



W 
-9214278 



TT 



■8yi02v9 



0"S" 



■8u0w755 



dT 



86072v9 



OTT 



•84263V 
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8* Arc Tangents 

8»1 Specifications 



ENTRY* 
EXIT* 

ERROR EXIT: 
DATA INPUT* 
DATA OUTPUTS 



Loc. 2k 

Transfer to L. 00»01» A return command can then 
be inserted in loc. 26 of this subroutine. (See 
coding sheets) 

None 

Argument in W A* Regsiter (21.00,01) 

Arc tangent x in radians in *A» Register (21.00,01) 



RANGE OF ARGUMENTS Any number that can be expressed in Intercom 
1000 notation. 

RANGE OF OUTPUT* -1/ZTT< arctan x < 1/2^ 

EXECUTION TIMEs Approximately 30 drum cycles 

> 

SHORT LINE 

LOCATIONS USEDs Line 20, wtjrds 0, 1, 2, 3 

Line 21, words 0, 1 

Line 22 , word 1 

Line 23, word 3 



LOCATIONS NOT 
USED IN LONTT 
LINEs 

CHECK SUMs 



APPENDIX II 
VERSIONS 



13. 

1000606 (Appendix I) 
1000506 (Appendix II) 



(1) Change source or destination *19* to *05" 
in the commands s 02, 06, 19, 20, 28, 31, 3U, U2, 
U3, U5, 50, 51, 70, 7U, 80, 81, 02,86, 87, 8.9. 

(2) Change characteristic "06* to tt 05» in the 
commands s 03, U7, 90» u3. 

(3) Do not change the constants in locations 57, 
65« (Restore them if the "reposition©!* is used. 

8*2 Method 

the approximating polynomial used iss 

Arctan x - Cox ♦ C^ ♦ C 2 x$ * ZyJ ♦ %j& ♦ Cgr^ ♦ 

CgP ♦ C^ 

Fer 0<x<l/2, 
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Where t 



c o- 


.9999 


9999 


9988 


5U 


c l- 


-.3333 


3332 


7339 


69 


c 2 - 


.1999 


99U9 


1589 


81 


C 3" 


-.11*28 


kohl 


0763 


90 


%' 


.1108 


3986 


7038 


7k 


Ce * 


-.088U 


6897 


3U59 


21 


c 6" 


.061*3 


1533 


6790 


01 


c 7 - 


-.0296 


6739 


0396 


20 



The absolute value of the argument is used for the evaluation 
of the polynomial, the sign being appended later, since x and 
arctan x have the same sign in the range considered. 

If Ix |>1, use is made of the identity? 

Arctan I xl » 1/2 -arctan (1/ ixi ) 
' ' x-1 

^ For values of x between 1/2 and l,x*T is substituted for x in 

the polynomial and padded to the result. 

(Acknowledgment is made to Mr. E.f . Pederighi, Sept. klO, 
Bendix Radio Division, for the constants used) 
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8.3 INTERCOM 1000 (D. P.) ARC , TANGENT X 
PXOW CHART 

(x « o? y 



~£ 



Asrctan x * 



Store sign of x. 



d 



»_> 



^ 1 




1/x. — Ox 



c 



££ 



1? 

3 



> 



-1 



arctan x 



-7TA. 



Q[ VS7 ). 



^1/2 



<1A 



1 



x-I ^ 

x*X > x 



I 



Store 77-/U 



££ 



Evaluate Polyno- 



Add^r/U if |x|>] 



C 



3 



<i , i 



Subtract from •7^2 



$±= 



Affix sign of x 

— s<= 



Exit 



7 



^_- 




Pa K e gl tf \(jl 



M|i JL if JL 

Q-15 PruirU fci Alfrod £» da Cost a D«tt; 7-17-58 

PROGRAM PROILEM : Intercom 1000 (Double Preclalon) Arctangent Subrout.Um 19. 



L 






N 



BP 



NOTES 



•2li 



VL 



26, 



>1. 



>7 



OT 



.26 



8 .31 



01. 



0.21. 



31 



(■0) Exit (arctan x » 0) 



s21 



8 .28. 



3l.ll. 21. 25 



(fl) x— >ID 



FORM 
ICO 

m-iM 



.31 



2b. 



.33 



.36 



•li 



il6i39.U.2£. 



t£ 



.UQ.U^.o. 



-tl£ 



j 26,22*1 



tli 



•50 



. ,27.52, 



i£ 



* < 



JO 



.76 



an 



.80 



. i 



i22 



.il* 



.u3 



Jl 



•Ik 



iZ2 



• i 



JLJ 



33 



0.25.19 



Store sign 



l$.li.21.2U 



2k 



26- 



ill 



8k 



91 



To make sign positive (Reset IP) 



21 



x 1—OA 



30, 



28 



12,22 



,0000081 



0, 



28 



2Pj2 



22,31 



80i 



12j21 



92, 



0, 



58.12 



,08, 



8U 



21 



2kk 2k 



72 



76 



±_t 



Jk 



,79 



80 



e >8U 



,0 



,3 



82 



19 4» 



±22* 



19 



Store exponent -1 



|»|<» 



iWAii 



,00000817 1 

.eooooooJ 



19, 23 



Return command » (19.u3) Q23.03 



20 



•.gazzaOO ; (08.58)- 



-020.02 



31 



31 



28 



19 



.0,28 



PL 



29 



19 >n 



Exit to floating-point division 



Return command. (Executed at T » u7.) 



(H^l 



17 



■1? 7TA fr* ( w » c » P«b) 



.UU87U80 7rA< 



»v90zxuu 



w 
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Q-15D 



Lii An|ili» 4S,Clllfirill 

Alfred J. da Costa* 



Priparil ly 



PROGRAM PROILEM : Intercom 1QQO (P.P.) Arctangent Subroutine* 



P«f« i- of i_ 

Bati . 17 July59 . 

Llil 19 « 



83 > 



ul 



188 



,94 i 



,97 



,uO 



,u6 



,02 



,04 



43 



u4 



89 



95 



02 



u4 



00 



77 



.10 



.14 



.22 



.25 



.51 



.08 



.95 



.01 






ul 



88 4 



,94 



,97 



,u0 ,0 



,u6 ,4 



,06 



,12 



,16 



,24 



►v4 



.84 



.10 



N 



,02,4 



,04,0 



,00 29 



21 25 



28 27 



00 00 



26 31 



25,23 



,23,26 



,10 



,4 



,14 



22 



,4 



.25 



,0 



.51 



.5 



.08 



.13.4 



.98 



04 



.07 



,13 



.17 



.28 



FORM 

ICO 

IM-I7.I 



.30 



.OE 



14 



v4 



• |JV . 



30 



.01 



.07 



,7 



.4 



19,30 



,26,25 



,21,30 



,26,26 



.20,24 



.25 



UP 



.19 



.24 



.25 



.0.26 



.4 



.12 



17 
28 



29 



.4 



,4 
,0 



.0 



.29 



,25 



,24 



24 



.31 



.23 



.31 



.2: 



.24 



,23 



,31 



19,22 



NOTE! 



jffl * l) 0000001 * (CXUfl) PAR* 

x « (A)-— 



jaj. < 3L/2T 



il^ilfll 



1/2 x 



1/2 x —023*02 



1/2 x-C>PN 



1/2 * (19*77) -PPH1* 



1/2 (1 ♦ x) QID 



Subtract x.', (PN) • 1/2 (!■*) 



Set negative elgn In IP* 



Divide t (Mq) * «U-x)/(l*xr) 
23.00 



rr/h 



( x-DAx*!) OP 



i& < V^f 



Reduce to fixed point fraction 
£> 23*00*01 



-OMQ 



^023.02*03 



Counter P22.0 2 



.OyOOOOO 



(C» ji.-.i W ■ 1U) 

■MM II ll*JMMM 



X 



X 



^ 



^ 
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Lit Aii|fl«i 41, California 



Q-15 Eraiaral Ijf Alfred J. da Co ata 

MOO RAM PROILEM : Intercom 1000 (P.P.) ARCTANGENT Subroutine. 



L 



29 



34 



.36 



■»7 



38 



42 



MA2. 



44 



46 



43 



69 



78 



89 



.96 



98 



,u2 



,u5 



,u4 



,05 



.09 



,16 



.20 



mm V 2 ^ 

DCO 123 

181-17.8 



k 



32. 



36. 



34. 



5. 



38. 



.43.44, 



,46.46. 



.48,48. 



52. 



v4 ( 



80, 



96, 



, u2 



, u3 



02 



u6 



. u 



• i 



0. 



69, 



78, 



89, 



98, 



u2, 



26. 



4. 



19. 



5. 



0, 



0< 



5, 



0, 



25 



21. 



19 



22. 



31. 



19. 



24. 



5,26, 



,22, 



u4 







,05 



08 



,09 



v4 



,16 



18 



21 



38 







,4 



,0 



23,3 



98.53 



,28 



28 



,0 



19, 



W 



21 



24 



NOTES 



** 



—4>ID 



• z04w8xw 



28 



29 



31 



26 



31 



25 



28 



29 



,27 



22 



,23 



24 



29 



26 



,20,4,26,24 



0,27 



.0798483 



} 



(LOOP) 



a? t>MQ 



Coefficient eel cmd * (19«U3) 



AR 



Counter PAR* 



(Seleotlon cmd) Ci ~— QPH 



.0200000 



24,31 



19 ,28 



,31 



Counter * 0? (Exit when 0) 



Modified counter t>2g«02 



(Exit from loop.) 



-J2*9L 



t { *) 



£M. 



.0000080 
Normalize 



Nfa 2- 01 JL 
Pitt! 17 July 5 9, 

LlM 19. 
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Lit Anfilil 4S,Cilllinlt 



_ !5D *t%*u%i >» AUfrfd J, da gogta. 

PROGRAM PROJLEM i Intercom 1000 (D.r J Arctangent gubtcoting 



Pftfl i_ Of J± 

Hi>i: l7 July 39 . 

LlM W* 



I 



S3 



68 



75 



87 



91 



93 



99 



06 



11 



8 s 



81 



,48 



k 



.54.68.1. 



.72.75.4. 



.76. 



,U1i 



.58.93.0. 



.96,99,4. 



,79,79. 



47 < .26,26, 



49 



72 



86 



32 



,03 



FORM 

ICD 

1M-17.0 



9 8 



.35 



.40 



.41 



173 



27, 



13, 



,'8.a.< 



48 



58 



03 



87. 



0. 



91. 



0.19 



4, 



11, 



18, 



72, 



28. 



27 J 



0, 



$ 



28 



24 J 



21 



21 



08. 



23. 



21 



21, 



19, 



0,22, 



«< !•< 



4,19,21 



86 0,08,20 



32 



,77,77 4 



14. 



39 



,39 



J5.<>. .9.;8 



.37 



s v;OC 



44 



,6 



,4C 



.26 



.73 



76.26.1 



0,19 23 



23 



20 



25 



31 



31 



28 



31 



21 



21 



C.22 



0.00 



3.21 



28 



31 



31 



.31 



.OC 



28 



.21 



NOTES 



f (x) £>A 



Ret. Cmd. 023.00 



-aaaagQO » (08«$8? 



-20.02 



or tih ■■ t>IPi 



To floating point addition 



Rot* Crod t (Read at T « tt7) 



Exponent 



-OAR 



#»J 



k 



{gill 

f (x> - (A)- 



J* 



-OB) 



l/2-rr — i>A 



•v90zxuu 



1 



.4487481 ) <ffl/Z 



-aaaaaOO • (08»$8) 



-020.02 



Ret. Cmdi 



-023*03 



To floating point subtraction |1/27T -f {x)J 



Ret. Omd. (Read at T * tt7) 



Sign >AR 



Orieinal x < 07 



•ftc^O (Exit) 



{x<0 - (A) -Q 



AR 



(AR)-*— OA (Exit) 
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L 


P 


T 1* 


N 


C % 


DP NOTES 
















Constants 




.54 












-.ey 7x980 \ C n 




.55 












J 

-.22ZE228 






.56 












-.79x2440) C, 




.57 












J 
-.5553553^ 




.58 












..730zy20) C* 




.59 












-,33332uu' 






.60 












-.wz40w60 ] 0. 




.61 












-.2491316 ' 




.62 


1 








-.80x1390 ] Cj, 


^ 


,63 












J 
,tw60006 J 




.64 












-.7689830 7 0* 






.65 












.16u5y7i J 


. 




.66 












-,849x'90 7 0,, 






.67 












-.1076884 ' 




.68 












-,w84v315 I C, 




M 












J 7 
,724y31z J 
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FORM 
ICO 














1 




MEMORY ALLOCATION CHART 

Intercom 1000 (D.P.) 



Problem 
Prepared by Alfred J. da Costa. 



{■ 



ARCTAN A. 



Che ok Stm 



.1000606 
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Page 1 of 1» 

Hate V 2 ffi », 
Line 19. 





U7 

1000606 


U6 
-80022zu 


U5 
8226396 


u4 
-yu052z8 






U3 
-5v5vuvz 


U2 
686839V 


U( 
-y8582v9 


UO 
-y86u337 




99 

-4z4z2vz 


n 

y6662xx 


97 

26435z 


96 

200000 




95 

620135Z 


94 
6061000 


93 
-y0632z9 


92 
vu0wll4 




91 
vu5xll4 


?o~~~~" 
-3433u9z 


69 
y062y7w 


88 
5u5y39v 




87 

uz5v277 


86 
8320277 


85 
w90zxuu 


64 

4487480 




83 
uv650ix 


82 
-x413275 


81 

-V048275 


80 
y75w277 




79 
515239v 


78 
-X059759 


11 
8000000 


76 

81 




75 
4x57375 


74 
ww4zy7x 


73 
w*lu795 


72 
vu56U4 


Four-Word Lines 


71 

494u3xw 


70 
-vrw50275 


69 

724y3tz 


68 

-w84v315 




Lint 


y 


i 


1 





67 
-I076z84 


66 
-849xy90 


615 
16u5y71 


64 
-76z9830 


v_y 












63 

lw60006 


62 
-80x1590 


61 
-2491316 


60 
-wz40w60 












59 
-33332uu 


58 
-730zy20 


37 
-5555553 


56 
-79x2440 












84 
-zzzzzzz 


54 
-sy7x980 


63 
374479W 


52 
36462x2 












SI 
-x408277 


50 
9v34393 


49 
w90zxuu 


48 
4487481 














47 
-luluuvz 


46 

30303zz 


46 
ww32y7x 


44 

uy2y2xx 












43 

-v44567u 


42 

2w2w27w 


41 

uw49yvw 


40 

luOOO 












39 

292x3xw 


38 
-u82u6v8 


37 

798483 


36 
204w8xw 












33 

25282xz 


34 
-U426279 


33 
-u40z2v8 


32 
-4x4x2vz 














31 
9821333 


30 

yOOOOO 


29 
-U022755 


28 
9ylx276 












27 
-Iylz2v9 


26 

101 2vz 


26 
-723373* 


24 
lululSw 












23 

623537a 


22 

9819298 


21 

80 


20 
1617y7w 












19 ] 
982327w 


16 
-v0512v9 


\1 
721w3lz 


-9214358 


w 












15 
-1227335 


-901635u 


IS 

-1011317 


12 
-54542vz 






V 






li 

xl22xz 


•0 

-8w0yyvy 


09 

721031a 


08 

-8u0x319 












07 
• i0x338 


06 

9vOv27w 


OS 

8093vu 


04 
-860u359 












55 
- 727uvz 


02 

vx0427y 


61 
-84073v7 


00 
-3«v3163 
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Flex Input 

9.1 Specifications 
ENTRY t Loc. 27 

EXITs To 00.01 (Command 19, Oh) 
ERROR EXIT: None 

DATA INPUT: Commands or data in Intercom 1000 notation on 
paper tape prepared on off-line flexowriter. 

DATA OUTPUT t Converted commands or data in Q-15D memory. 

EXECUTION TIME: 15 to 20 seconds after read-in of photo-tape. 

SHORT LINE 

LOCATIONS USED: Line 20, words 0, 1, 2, 3- 

Line 21, words 0, 1, 3 

Line 23, word 3 

LOCATIONS NOT 
USED IN LOlT 
LINE: lit, u0-u7 inclusive. 

CHECK SUM* 1000607 

REMARKS: There is no Appendix II Version. 

The decimal to binary subroutine of Intercom 1000 
itself is used for the conversion of numbers. 

9.2 Method 

1. Two Intercom 1000 commands are required for the execution of 
this subroutine. The first is "OBI?!?," the second is either 
"k56ADDR* or "^ADDR* (See manual p. 20). 

2. The first command causes the subroutine to be transferred from 
line 17 to line 19, where it is entered at word 17. 

3. Line Ok is copied into line 17, line 19 (the subroutine) into 
line OU. Control is then transferred to line OU. Line 19 is 
now free to receive data. 

U. The address "ADDR" is converted to binary and stored for future 
use. 

5 # Depending upon whether commands or numbers are required, certain 
commands w ill be readied for execution as soon as input is read 
in. 



W 
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6« Input tape is read in. Each item is converted to binary- 
notation and stored after being scrutinized for one of the 
■ codes marking the last entry on the block of tape read in. 

7. If the last word consists Of w's, another block of tape is 
read in as in step 6. 

8* If the last word consists of z's, the subroutine is copied 
from line 0U into line 19 and control is transferred to line 
19. The original contents of line Ok are copied back into 
line 0U from line 17* and the subroutine, which is now in 
line 19* is copied into line 17* 



V,^ 
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9.3 INTBRCCtl 1000 (D. P. ) FLEXOWRITER INPUT SUBROUTINE 

FLOW CHART 



(L. OU) — £>L. 07 

(t. 19)— OL. OU 

Transfer control to L # 01* 

5 ~ 



Commands 



Convert "AMR' 1 to binary 



I 



< 



Commands or data? 



> 



Data 



Store pick-up Cmd C.I- 



I 



1 



Store pick-up cmd. D. 



Read Tape 



Commands 



-c 



?k 



Commands or data? 



Data 



Pick-up s*p» input word 



I 



SL 



Pick-up d,p, input word 



(Does it consist of 
<7 No" 



v*ai )- 



Jlss. 



Commands 



(boesitcorslBt of *'sy 



(More tape to be read) 
Yes 



< 



Commands or data? 



> 



(End of input) 
Data. 



Subtract 1 from pick- 
up address 



1 



l 



15ubt. 2 from pick- 
up aririrfiafi 



Convert input, store 

— r 



Convert input, store 



Add 1 to storage address 



I 



Add 2 to storage address 



Modify channel, if necessary 



(L. OU)- 



->L. 19 



Transfer control to L. 19 



k 



(L„ 17; i>l. Olfl 

(L» 19)- PL. 17 I 



E 



Exit to 00.01 



z> 







IiS 


.IS ft 


^ **^^'' 
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L 


p 


Tm 


N 


c 


s 


D 


BP 


NOTES 




















jf Command Line 19? 




17 


3 U 


18 


29 





04 


17 




(L. OU) > L. 17 




,29 


. U 


30 


32 





19 


04 




Subroutine - (L. 19) C>L, OU 




,32 


» 


34 


,44 





19 


28 




Return command • (19.3U) {>AR 




,44 


1 


46 


,69 


,0 


28 


00 




Return command - (AR) (>00.U6 




.69 


i 


72 


,99 


4 


21 


04 




(21.00,01) f> 19.72,73 




•72 
















\ Temporary storage for 




.73 
















J contents of "A" Register 




,99 


» 


,01 


,01 


,0 


,21 


,31 




Transfer control to line 00* 




,34 


3 


,49 


,49 


,4 


.21 


,31 




(Ret. Cmd) Transfer control to line OU 


l , 






































{ Command line OU < 




.49 


3 


,51 


.52 


.0 


.30 


,28 








.52 





,54 


.55 


.0 


.28 


.21 




/ 




.55 




.58 


.58 


.0 


.23 


.31 








.58' 




,60 


.61 


.0 


.28 


.25 




\ Conversion 




.61 




.10 


.75 


.1 


.26 


.31 




• 


to 




.75 




,76 


.78 


.0 


.25 


.21 






binary of 




.78 




,80 


.81 


.0 


.30 


.28 






"ADDR" 




.81 


- 


.82 


.84 


.0 


.04 


.20 




/ 






.82 
















i 
,7asO00O0 




.84 




.86 


.86 


.0 


.31 


.29 




t> 


i 


.80 




.85 


.9C 


.0 


.2£ 


.21 




Converted "ADDR"- { 21.01 


W 




















FORM 

ICO 

10I-1M 
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NOTES 



90 j 



91 



94 



31, 28 



.94 



u3 



u3 



31 31 



(AR) 



OC 



N 



00 



OC 



(N * 56 or 57) 



Command conversion (N * 56) 



tlL 



62 



,70 ,4 04 ,20 



Extractors fr 20.02,03 



,62 



.aOOOOOO (-{ 20.02) 



t61 



.ozzoooo ( : 20.03) 



.70 



76 ,87 ,0 ,04 



,21 



Command C (Olj.76) 21.00 (See p. 3) 



Data Conversion (N • 57) 



.57 



60 



65 



.0 



.04 



.21 



Command D (Ol*.bO) 



^21.00 (See p. 3) 



.65 



,68 



.74 



.0 



04 



.28 



5858000 



AR 



.68 



5858000 



.74 



86.87 



.0 



.28 



.02 



5858000 —■{■. 02.86 



Tape read-in and search for first word 



*87_ 



v 



*89_ 



,91 



91 



.88 



.8<J 







*91 



.91 



C.15 



91,0 



,2ii 



.29 



.IS 



.31 



,31 



Clear L. ly 



Read tape 



Ready? (Loop begins) 



,92 



,93 



94 



.0 



,04 



,28 



Crad. Oil .93 



AR 



.94 



,u3 



u3 



,0 



,31 



31 



N.C. from AR 



,93 



,00 



00 



,0 



,iy 



,27 



(From AR with N - u3) (19.uli-u7) - 



.00 



02 



03 



,0L ,31 



(K)) Type AR 



Precess k words 



FORM 
BCD 

wi-n.« 



J13_ 



■21*21 



&ML 



Set Ready 



(Return to 91) 
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L 



Tad 



N 



BP 



NOTES 



Exit from processing loopj 



01 



LPS 



£JL 



04 



05 



0,21 



20 



08 



Ob 



0, 



23 



'11 



10 



10 



0, 



31 



31 



Cmd. C or D - (21.01) 



AR 



Clear 



N.C. from AR (Command 76 or 60) 



Command Conversion, 



,76 i 



uLJJL 



EL 



11 



m 



,Cmd C' First of next s.p. word « (I9>u7) — f>AR 



JJL 



i — i 



k 60 



.11 



,16 



,1ft. 



.19 



.22 



.50 



ill 



^2L 



.27 



FORM 
BCD 

101-17.0 



.31 



.33 



3 



1A 



1L 



,M 



u6 



11 



4 



12 



,16 



III 



,20 



,24 



,56,56,0 



l?A 



19 



lIlPA l 2 ! 



l22 



,50 



.25 



27 



.29 



35 



, 19, 24 



,24 



,0, 



,0, 



24 



(AR) 



MQ 



tt- 



,28 



.22 



Data Conversion 



'Cmd, D First or next d.p. word - (19.u6 # u7)- — C>MQ 



JilSo. 



AR 



Check for "w" and "a" codes, 



20 ,27 



21,28 



27 



.0 



.30 



.0 



30 



j., JJ 



35 



.0 



.0 



04 



.29 



29 



.28 



!1. 



*>2 



L31 



31 



.27 



27 



wwwwwww 



AR* 



wwwwwww 



Word read in ■ wwwwwww? 



Yes, more tape to be read Cmd. C or D 



AR 



(AR) 0? Cmd C is pos.. D is neig. 



31 



To 5b if positive; to 57 if neg. (See p. 2) 



(No) 3333333 



AR* 



.3333333 



Reset overflow 



Word read in * zzzaazz? 



(Yes) To final commands (p. 5) 



(no) Cmd C or D 



AR 



(AR) 0? 



Is (AR) « Cmd D? 



^ 
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pftd 
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/Command Conversion ^ 



35 



37i39 



3; 



>4 



29' 



(/- 0) Subtract •0100000 from Cmd, C« 



.37 



,0100000 



.39 



,40 



.41 



.0 



28 



.21 



Hew Cmd C p.21.00 



41 



• I 



42, 



43, 



0, 



241 



28 



MQr 



(>AR 



43 



32, 



77, 



1, 



26, 



31 



Shift 16 bits left 



*77 



80 



83, 



2, 



24 



21 



(* to ) .- . VA t> 23 ^01 



Command 



,83 



10 



95,1, 



26 



31 



S hift S M9 left - 



Conversion 



►95 



97 



09 2, 



24 



28 



H9U 



(>AR 



,09 



12 



15,0 



,27 



28 



27.02, 03 



AR 



^ 



.15 



u 



18 



20,0 



28 



25 



Converted Cmd. C>D>, 



,20 



.26 



21 



26 



,0 



,04 



28 



Dummy store cmd ■ (0U.21) OAR 



29 



94 



,0 



,21 



29 



«ADDR M ' » Ul.01) -QAR* 



,94 



u3 



u3 



,0 



31 



31 



N.C. from AR 

— Executed from AK after addition or 
store cmd) "ADDR" f(IDH Q'kVIR*} 



..2 



9 



00 



12 



.0 



25 



,00 



.37 



42 



.0 



04 



,28 



Address increments - - f>AR ^H.C. on p. 5> / 



Data Conversion 



l36. 



,38 



.40 



.3 



.04.23 



Subtract ,0200000 from cmd D 



-2. 



.0200000 



^40. 



.44 



.4f.C 



.28 



.21 



New cmd D 



i> 21.00 



.45 



.OS 



.51 



.26 



.31 



Shift i nput data l^bit left 23. 03 



,51 



.6; 



.C 



.04 



.2: 



Return -ored »;C'OUj;69»t^a3;CO>-:r Cr. ; -.v..-:iior. Routlrn) 



.67 



.7t 



.7( 



.5 



.21 



.3: 



ST»0..02«70 (To. Intercom Number Conversion Routine) 



FORM 

BCD 

101-17.9 



,59 



9/ 



.9; 



.4 



.21 



.3] 



(Ret. Cmd) N.C. 0U.97 



,97 



uO 



02,4 



22,25 



Converted number 



{>ID 



^ 
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N 



NOTES 



.02 



,04 



,06 



,0 



,04 



20 



Dummy 8 tore m&» » (Qli»0U) -OA R 



.06 



,09 



,10 



,0 



21 



,29 



"ADDR" » (21.01) QAR» 



,10 



12 



,12 







31 31 



N»C» from AR 



Executed from a& arter 
(Dummy Store Cmd) additions of address* 



,04 



« 00 07 



,25 



00 



07 



38 42 



,04,28 



Address increments (0200000) - — -{>AR 



I Modification of "ADDR"] 



42 



45, 



47 



0, 



21 



29 



"ADDR" ■ (21.01) t>AR» 



47 



49, 



53, 



0, 



28 



,21 



New "ADDR" « (AR) — -Q 21.01 



53 



« 



54,71, 



3, 



04, 



29 



63zzzzz -■£ : i>AR* 



'/Reduces T to 00 and D by i\ 
,63zzazz twhen T has reaohed 100 J 



.ft 



71 



79, 



79, 



0. 



22, 



31 



loot 



79 i 



81 



01,0. 



28. 



21 



(t »ioo) 



(AR) O 21.01 



80 i , 



81, 



01, 



0, 



28. 



28 



|'t loo) Retain (21.01) Return to 01, p. 3 



(Final Commands^ 



30 i 



.<t(> 



48. 



0.04, 



JlfiL 



00 



Restore original contents of 0Q.fr6 



3030v^w 



48 , 



u. 



9.64. 



0. 



04.19 



Subroutine program ; (L. Oh) QI». 19 



64 



36. 



66. 



6. 



21.31 



N.C. from L. 19 



'Command Line 19 ) 



,66 



,72 



,85 



,4 



19 



,21 



Restore contents of 21.00,01 



.85 



86 



96 



.0 



19 



,02 



Restore (02.86) 



►86 



$8$833v 



.96 



. u 



97 



.98 



.0L17 



04 



Original L. OU " (L. 17) OU OU 



.98 



u,99 



99.0 



19 



17 



Subroutine * (L. 19) (>L. 17 



FORM 

ICO 

101-17.9 



.99 



01 



01.0.21 



31 



N.C. 00.01 (Exit) 




^ 



Prepared by 
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Problem 
Alfred J. da Costa* 
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Flex Inpvt. Date (Jltid*. 

Cheok Sum .1000607 Line 19/17/ 04 

I 



[ 



Pour4/ord tinea 



Line 



W 



2 



U7 



1000607 



U3 



99 



U6 



-420x047 



U2 



U5 



"9T 



1012V2 



91 



yl09vlw 



5v5v39z 



87 



IT 



58593v3 



u5z75z 



W 



xl01395 



W 



71 



4x4y335 



4z4z2xz 



W 



98 



94* 



mini. 



67673zz 



w 



5w5y3zw 



86 



585833V 



82 



7z00000 



yr 



x0513xw 



74 



X657382 



7F 
ww57095 



4646uvz 



63 



zzOOOO 



59 



■61612vz 



55 



3u3u2zz 



51 



W43097 



47 



V135395 



43 



204x75z 



5T 



2929395 



3T 



u527w9x 



21212vw 



W 



9xly39v 



23 



1919w9x 



19 



151639v 



1214399 



tl 



xlOvlw 



f07 

u62u09w 



oi 

5v5v01z 



66 



•W855275 



62 



zOOOOOO 



58 



vw3x399 



54 



63zzzzz 



50 



38382xz 



46 



3030vzw 



42 



ux2z2vx 



38 



200000 



34 
-313l2vz 



30 



uy30080 



01 
W 



gu 



22x9 



9T 



IF 



27y 



5760262 



8( 



5354094 



77 
5053vl5 



73 



U4 



U0 



96 



.ft1n?77ft 



88 



*)y5yn9w 



x6583zx 



80 

■Mgi39w,. 



76 

YVQx27w 



6^ 
-w8632u4 



6T 
w44u09w 



61 



u4v75z 



57 



vw4l095 



53 
3747w9x 



49 ■ 
v3343xw 



45 



23375z 



2v2v31w 



37 



100000 



33 
23232xz 



29 



26 



9x5y2vx 



22 



98322vw 



18 

wwwwwww 



14 



W 



w0w3zz 



06 
890u2vx 



0T 



840609W 



iy20264 



25 
lvlv3vz 



21 
800w320 



17 
121x091 



13 



zl0398 



oT 



w0z37w 



OS 



8082zz 



or 



8405 2 vw 



72 



61 

5858000 



64 
-4242uvz 



60 
-yuOv278 



56 
-vy46094 



52 
v637395 



48 
3140093 



44 
uy45380 



40 
uw2x395 



36 
u628w9x 



32 
u22w27w 



28 



lyly39v 



24 
3333333 



20 
161u09w 



16 
9213w9x 



12 
u52u09w 



mr 



u0u3zz 



04 
8007320 



00 



20311z 
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10# Flex Output 

10» 1" Specifications 



ENTRT? 

ERROR EXT* 
DATA INPUTS 

DATA OUTPUTt 



The Intercom command 08 1675 causes the routine 
to be transferred to line 19, and control 
transferred to word 75 • 

None in this routine. 

In N/2 consecutive Intercom double precision 
locations in memory as specified by the second 
command of the two which is K N ADDR. 

Up to 50 double precision floating point numbers 
punched on tape in a form to be tabulated by 
flexowriter. 



EXECUTION TBffir Each number requires 3 drum cycles in addition 
to conversion time for processing. Tape punching 
time is additional. 

SHORT LINE 

LOCATIONS USEDt A format is placed in 02.00-03. Line OU is used 
for storage of the routine during execution. Line 
19 is used as output storage. In addition to the 
short line storage used by Interccw, and the Binary 
to Decimal Conversion, routine, the following are 
used by this routine? 21.02,03, 22.00, 22.01, 22,02. 



CHECK SDMs 
REMARKS* 



Cu7) 1000608 

The output format is as follows? sign, two digits, 
period, five digits, tab, seven digits, tab; sign, 
two digits, period^ five digits, tab, seven digits, 
carriage return, stop or reload. 

Index Register 8 may not be used with the command to 
use this routine. 



10.2 Method 



O 



Since this routine requires the use of line 19 for output, it cannot 
be executed from line 19 while the output information is stored there. 
It must be executed from some other command line. This is accomplished 
by interchanging it with line OU of Intercom using line 19 as inter- 
mediate storage* Mien the output is completed, the lines are switched 
back again. 

This routine uses various parts of Intercom to do some of its work. 
A pair of Intercom commands must be written to use the routine. 
The second command contains a number to tell how many numbers are 
to be punched on tape, and the location of one first one. The 
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command interpreting, part of Intercom is used to convert this command 
to a form usable by this routine. 

The binary to decimal conversion routine of Intercom itself is 
used by this routine for the actual conversion of the numbers. 

10»3 Detailed Description 

1. The Intercom Command 08 lb75 causes this routine to be trans- 
ferred from line lb to line 19, with the next command taken 
from word 75 of the routine. 

2* Part of Intercom (Line OU) is transferred into line 16, and 
this routine transfers itself from line 19 to line Olu A 
special exit to this routine is inserted in the command in- 
terpreting part of Intercom at 00. U6, and control is trans- 
ferred back to Intercom. 

3« On return to this routine from the Intercom command interpreting 
part, the command K N ADDR has been converted to binary form 
giving WD, N and CH. (See page 11 of the Intercom 1000 Double 
Precision Technical Manual.) 

It* Line 19 is cleared. N is extracted from the converted command 
and shifted (in AR) to the T position (2~ 8 ) to be used as a 
tally. Part of the format is placed in line 02, 

i 5» WD and CH are extracted from the converted command* A dummy 

is added to form the initial pick-up command. The contents of 
22V02, which are used by Intercom are stored temporarily in 
0iu30, with the initial pick-up command going into 22,02. The 
balance of the format is placed in line 02, and the initial 
store command is set up. 

6# The tally is reduced by 2 •2"°° and its sign tested. If negative, 
the looping is completed (see 10 below). If positive, the loop 
is continued,, 

7. The two-word registers are cleared. The pick-up command is 
executed bringing a number into the ID. A return command is 
placed in the AR and control transferred to the binary-to- 
decimal conversion routine (Ol.iil). 

8. The converted number is movsd from PN to ID also. The part in 
the ID is shifted right 1 bit, and the low order part copied 
into PNq. The two parts of the PN are copied (single precision) 
into temporary storage, putting the sign on each part. The 
number is then picked up in ID and the store command executed. 
The store command is then modified by subtracting 2«2"". 

9* The pick-up command is modified by adding 2«2-°". A constant 
of 28.2"8 is added and the sign tested. A positive indicates 
; that the last number picked up had be-.n stored in words 98 and 

^-" / 99 of a channel. The next number should be picked up from 
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words 00 and 01 of the next channel, so a channel modifier is 
added to form the new pick-up command* The loop goes back to 
step 6 (above)* 

10# Line 19 is punched. The contents of 22,02 is restored, and the 
normal command is replaced in 00.1*6* 

H# When punching is completed this routine is transferred from 
line Ok to line 19, and control transferred to line 19* Line 
16 (the original line 0k of intercom) is transferred back to 
line 01*. This routine is transferred from line 19 back to 
line 16* and control is returned to Intercom. 



^ 



O 



21 



i 



10.il Intercom 1000 - Flexowriter Number Output Routine 
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He Intercom 1000 Card Input-Output Routine 

U,l Specifications - Data Card Input Routine 
ENTRY* 



EXITt 

DATA INPOTs 

DATA OUTPUT i 



The Intercom command 08 160$ causes the routine 
to be transferred to line 19 > and control trans- 
ferred to word 05 • 

None in this routine. 

N^TU double precision numbers on a card. 

The numbers stored in consecutive Intercom double 
precision locations in memory as specified by the 
second command of the two which is K N ADER. 



EXECUTION TIME* The major part of the time is required for card 
reading. Each number requires 2 drum cycles in 
addition to conversion time for processing, 

SHORT LINE 

LOCATIONS USED* Line OU is used for storage of the routine during 

execution. Line 19 is used as input storage. In 

addition to the short line storage used by Intercom, 
and the decimal-to-binary conversion routine, the 

following are used by this routines 20.02,03? 

21.02? 22.02? 22o03? 23.03. 

CHECK SUM: (u7) 100060c 

REMARKS* Index Register 8 may not be used with the command 
to use this routine. 

H.2 Specifications - Data Card Output Routine 

ENTRY: The Intercom command 08 1610 causes the routine to 
be transferred to line 19, and control transferred 
to word 10. 



EXIT: 

DATA INPUT* 



None in this routine. 

A floating-binary number in the Intercom AA register 
(21.00,01) 



v 



DATA OUTPUTS The converted number punched in a card. 
EXECUTION TDffis Six drum cycles plus conversion time. 

SHORT LINE 

LOCATIONS USED: Line 19. OS.76-.97. 02,02,03 for format. 

This routine uses no short line storage beyond that 
used by Intercom, and the binary-to-decimal conversion 
routine. 
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O 



CHECK SUM i (u7) 100060U 



REMARKS* Since it is possible for Intercom computation to 
proceed while output occurs, the whole punching 
tine is not included in the above time* 

H«3 Method - Data Card Input Routine 

Since this routine requires the use of line 19 for input, it cannot 
be executed from line 19 while input information is stored there. 
It must be executed from some other command line. This is accom- 
plished by interchanging it with line 0U of Intercom, using line 19 
as intermediate storage,, When the input and conversion are completed, 
the lines are switched back again. 

This routine uses various parts of Intercom to do some of its work, 
A pair of Intercom commands must be written to use the routine. The 
second command contains a number to tell how many numbers are punched 
on the card and the location where the first number is to be stored. 
The command interpreting part of Intercom is used to convert this 
command to a form usable by this routine. 

The decimal-to-binary conversion routine of Intercom itself is used 
by this routine for the actual conversion of the numbers. 

llji Method - Data Card Output Routine 

Since this routine requires the use of line 19 for output, it cannot 
be executed from line 19 during output During the output part of 
the routine, it is executed from line 05, 

11.5 Detailed Description - Data Card Input Routine 

1. The Intercom command 08 1605 causes this routine to be trans- 
ferred from line 16 to line 19, with the next command taken 
from word 05 of the routine . 

2. Part of Intercom (Line Ok) is transferred into line 16, and 
this routine transfers inself from line 19 to line 0L o A 
special exit to this routine is inserted in the command in- 
terpreting part of Intercom at 00 „u6, and control is transferred 
back to Intercom. 

3. On return to this routine from the Intercom command interpreting 
part, the command K H ADDR has been converted to binary form 

giving WD, N and CH (See page 11 of the Intercom 1000 D.P. Technical 
Manual*) 
k, A card read command is given. Special extractors are placed in 
20*02,03 and the contents of 22.02,03 are stored temporarily in 
aU.70,71. The two-word registers are cleared, N is extracted 
from the converted command and shifted (in AR) to give 2K in the 
^ T position (2"°) to be used as a tally. 
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$ # WD and CH are extracted from the converted command* CH is 
V^y separated from WD and shifted to the D position. It is then 

recombined with WD and a dummy to form the initial store 
command* The normal command is restored in 00.1*6. 

6. A special command is placed in 02.86„ The routine waits until 
the card is finished being read, 

7. The tally is reduced by 2.2-8 an( j ^s sign tested. If negative, 
looping is completed (SeelO below) » A dummy is added to the 
tally to form a pick-up command, which is executed after the 
two-word registers are cleared. 

8. The number is shifted, one bit left. Then control is transferred 
to the decimal-to-binary conversion routine (02*70), with a 
return command in 23.03. 

9« After conversion, the store command is executed and then modified 
by adding 2o2"°. The constant 28. 2" 8 is then added and the sign 
tested. A positive indicates that the last number converted had 
been stored in words 98 and 99 of a channel. The next number should 
be stored in words 00 and 01 of the next channel, so a channel 
modifier is added to form the new store command. The loop goes back 
to step 7, above. 

10* This routine is transferred from line Ok to line 19 and control 
^ transferred to line 19 • Line 16 (the original line 01* of 

Intercom) is transferred back to ILne 0k 9 while this routine 
is transferred from line 19 back to line 16. The original 
contents of 22.02,03 are restored, as well as the normal command 
in 02.86. Control is returned to Intercom. 

11.6 Detailed Description - Data Card Output Routine 

1. The Intercom command 08 1610 causes this routine to be transferred 
from line 16 to line 19, with the next command taken from word 10 
of the routine. 

2. With the two-wOrd registers cleared the contents of the Intercom 
AA register are picked up in the ID. A return command is picked 
up in the AR. 

3. Part of the commands are transferred to line 05 for operation 
after the conversion. The format for punching is set in line 02, 
and control is transferred to the binary-to-decimal conversion 
routine. 

lu The return command causes control to be transferred to line 05. 
Line 19 is cleared, then part of the converted number with the 
sign is placed in 19.u7. The card punch command is given, and 
after wasting 2 drum cycles to allow the sign to be punched, the 
whole converted number is placed in 19.u6,u7« 



^ 



5* Control is then returned to Intercom. 



^ 



w 



o£ 



9 



(Double Precision) 
11,7 Intercom 1000 - Card Input-Output Routine 



Page 77 of 101 



Input - Read 



Line 19 10 



Output - Punch 



Line 
Line 



Olir 
19- 



•Line 
Line 



33 



16-X 
OU j 



Clear Pick Up AA Reg. 
Move part of line 1? 
to line 0$. Set Format 



1 



Put special command 
in 00*1*6 to switch 
Intercom control to L 



Oii 



7/16/58 
Line 16 



Line Ok 



3U t 
/Transfer to out\ 

x put Conversion § R 



9U 



Clear Line 19 
Sign part-**]9JJ7 
Punch Card 



97 

Hri 



i 



ii 



Transfer back to 
Intercom control 



Increment ST 
Comm by 2.2" 8 
Store- Add 
28.2" 8 



57 



Line Oii 



Read Card. Set up ex- 
tractors in 20,02,03 
Store "IRA & CC* Clear* 



78 



XL 



96 



Pick up ST comm 
Execute from AR 
IPo > l'-rCh«Wd JL _ 



87 



rfaste 2 drum 
cycles . 



I 



K Test Sign ) 



1 



Extract N from dummy. 
Shift 9 bits left in AR 
to use as tally & store 



06 



Extract Wd & Ch from 
Dummy. Put in 21.02. Ex- 
tract Ch.2~ 23 . Shift 5 
bits right to D position. 
Recombine with Wd and adc 
dummy to form initial 
store comm. Restore 00.1*6 



76 



68 
/ISn 
XCor 



Trans, to inpu 
Conversion SR 
I 



) 



1? t 



Add channel 
modifier. Store 
new ST comm. 



20 
» Waste Command 



38 



50 



Add dummy pick up 
comm. Clear 
Execute from AR 

(19.TT »»MQ) 

Shift left 1 bit. 
Pick up Ret. Comm, 



Pick up tally. 
Subtract 2.2"° 
Store new tally 



Set special commamd 
in 02»86 „ 



-K 



37 

Test Keaoy 



U8 



00 



Restore and 
Exit 



Waste 
Command 



+ 



Test Sign 



__._ _ ^Line 19 
_/~H Transfer control 
to line 19 



56 

Line 16- 



Line 19 
-Line Ok 



S?\ m Restore "IRA & CC." 
^^ Line 19— *-Line 16 
lestore 02.86 







G-15D 

RAM PROBLEM : 


Inter 


< 


^ 














Page 78 of 101 


^' 


PROG 


4££"^ Lo$ Angsles 45, California „ . 
^***^ Page X. ol JL 

Prepared by R.J. Margolin Date: 7/16/58,. 

'com 1000 D.P. - Card Input Routine Line 16 




9 
4 
8 
12 
16 
20 
24 
28 
32 
36 
40 
44 
48 
52 
56 
60 
64 
68 
72 
76 
80 
84 
88 
92 
96 

uo 

U4 


1 
5 

9 
13 
17 
21 
25 
29 
33 
37 
41 
45 
49 
53 
57 
61 
65 
69 
73 
77 
81 
85 
89 
93 
97 
U1 

U5 


2 
6 
10 
14 
18 
22 
26 
30 
34 
38 
42 
46 
50 
54 
58 
62 
66 
70 
74 
78 
82 
86 
90 
94 

98 
112 

U6 


3 
7 

11 
15 
19 

23 
27 
31 

35 
39 
43 
47 
51 
55 
59 
63 
67 
71 
75 
79 
83 
87 
91 
95 
99 
U3 


L 


P 


T 


N 


C 


S 


D 


BP 


NOTES 




05 


U 


06 


30 





°k 


16 




Line 01* > Line 16 




30 


U 


31 


33, 





i? 


ol+ 




L 






ine 19"- v^Llne OU 




33 




36 


kk 





19 


28 




Spec. 

Coram. » 19 .36-— — £>AR 




(36) 


w 


ks 


57 


h 


21 


31 






Transfer to Oh .57 1 




kh 




1+6 


97 





28 


00 




Spec. ~* 
Comm. - AR t>00oii6 




97 


w 


99 


01 





21 


31 




Return to Intercom Control 




57 




58 


61 





^ 


31 




Read Card 




61 




62 


69 


a- 


Oli 


20 




m 


ic tractors 
ni, /;,') f, -> _fSi on tvy m 




UlXnOCfOj ., ■VtU.UcjUJ 




(63) 


















7Z003YO* 






(62) 


















OOOC32TO* 




^ 


69 




70 


73 


If 


22 


oU 




"TRT -> 
& CC « 22.02.03 >OU.70.71 




73 




76 


78 





23 


31 




Clear 




78 




19 


83 





30 


28 




N.2** 16 - 20.21 


f\ "} ., ..— J^fc AT? 




«UJ -■— — \?tm 




8^1 


u 


93 


93 


2 


28 


29 




AR — L^ — 1 &AR* 9 w.t. 




93 




95 


06 


2 


28 


22 




21 


t o**" - a-r ts'? r > 01 




Hoc. ™ i«v ■■■' V'-.v/^ 




06 




07 


08 





31 


28 




Wd & Ch ■ 20.21.03 £>AR 




08 




10 


21 





28 


21 




Wd & Ch - AR 1> 21.02 




21 




22: 


23 





31 


25 




Ch.2-23 « 20.21.02 >TD Q 




23 




10 


35 





26 


31 




Shift T - 10 




35 




38 


U2 


2» 


30 


28 




Wd.2" 8 « 20.21 


, ao | L, f-y AT? 




»U«L * "V^vIV 




)|2 




1+6 


53 





01+ 


00 




Normal 

Comnu ■ Oli.)i( 


f. . JNnn \if. 




J vuu.uo 




(46) 




hi 


1+8 


2 


31 


28 






Extract 






53 




5U 


59 


2 


25 


29 




Ch»2" 28 - m r 










^ 


59 




60 


6U 





OU 


29 




itammy 

St. Comm. ■ Olt 


t,r\ ...,IS AT? A 




»OU V^AK* 




(60) 


w 


(00) 


11 


U 


25 


(00) 




(__ 


-ny, . . K, 


00.00,011 




UJlj.l V> 


FORM 

BCD 

101-5.0 


6U 




66 


76 





28 


22 




Init St. 

Comm. - AR — £>22,02 





^ 




LEM: 




















ffencf/y 


^ 


ompufer 


Page 79 of 101 






PROG 


Los Angeles 45, California . ,. 

Page JL. of Jk 

Prepared by R» J. Margolin Date: 7/16/58 

D.P. - Card Input Routine Line 16 




^ 


G-15D 
RAM PROB 


Intercast 1000 







4 

8 
12 
16 
20 
24 
28 
32 
36 
40 
44 
48 
52 
56 
60 
64 
68 
72 

76 
80 
84 
88 
92 
96 

uo 

U4 


1 

5 

9 

13 

17 

21 

25 

29 

33 

37 

41 

45 

49 

53 

57 

61 

65 

69 
73 

77 
81 
85 
89 
93 
97 
111 

US 


2 
6 
10 
14 
18 

22 
26 
30 
34 
38 
42 
46 
50 
54 
58 
62 
66 
70 
74 
78 
82 
86 
90 
94 
98 
112 

U6 


3 
7 
11 
15 
19 

23 
27 
31 
35 
39 
43 
47 
51 
55 
59 
63 
67 
71 
75 
79 
83 
87 
91 
95 
99 
U3 


L 


P 


T 


N 


c 


s 


D 


BP 


NOTES 






76 




77 


79 





Oil 


28 




Special 
Coram, ■ Oi 


| ft "L.U -US tut 






l+(i VAK 






C'77) 
















5858ooo* 








79 




86 


37 





28 


02 




Special 

Comm, » AR - — — ^02„86 






37 




37 


37 


,0 


28 


31 




Test Ready 






38 




39 


Uo 





22 


,28 




2N.2^ - 22, 








,OJ %? iuisr-" ""' 






Uo 




ill 


hS 


3 


Oil 


29 




Z.2"" 8 * Olulil OAR* 






(hi) 
















0200000* 1 






ii5 




k7 


U8 





28 


2.2 




New -,5 

Tally -■$— ->22V03 






U8 




$0 


5o 





2f 


31 




TiAR : OTest 






51 


U 


& 


Sk 





oh 


19 






-[Set -J 






Ei 


n* nl, -fsliii 


le 19 to p. 3 


-i>, 








^' 


£o 




52 


55 





Oil 


29 




Dummy 

SU Comra. * Oli^ — - 


fr Not Set 




JS AW*. 












(#) 


w 


Coo) 


09 


k 


19 


2li 






19o (00,01)- t>MQ n il 






55 




58 


99 





23 


31 




Clear 






99 




Ul. 


•Ul 


0) 


31. 


31 




NC from AR 






09 




02 


65 


0) 


26 


31 




Shift T ■• 2 






65 




67 


68 





ok 


23 




C®mm„ » OU»67 ^23.03 






(67) 


w 


93 


96 


h 


21 


31 




1 NC from 0ii«»96 








68 




70 


70 


2" 


21 


31 




1 , —i 

Transfer to Input C ©aversion SI 






96 




98 


99 





22 


28 




Store 
Commo ■» 2SoC 


YT .JS AT? 






M v^All 






(AR) 


w 


(Wd) 


11. 


k 


25 


(Gh) 




Gonv NC from AR 

No * ID« , — £>ChoWd 






U. 




12 


13 





Oil 


29 




UjiX 

2.2°' 8 - Ok J£- — — £>AR* 






(12) 


















ozooooo* 








13 




21+ 


15 





28 


22 




New St, ™~* 

Coram. « AR— -£>22„02 




^ 


1? 




16 


17 





ok 


29 




=8 
28-2 « 0iul6 — -OAR+ 






(16) 


















1W00000* 






FORM 
BCD 

108-5-0 


17 




19 


19 





22 


31 




T 1<( AR fcUest 











LEM: 
















■ ffent/ix 


-< 


computer 




Page 80 of 101 




Los Ant 

Prepared 

> D.P„ - I 


eles 45, Cal ifornia 

Page .3 of k 

by RoJ. Margolin Date: 7/16/58 

3ard Input Routine Line 16 


1 


G-15D 
SRAM PROB 


o 


PRO! 


Interc@m 100C 





4 

8 
12 
16 
20 
24 
28 
32 
36 
40 
44 
48 
52 
56 
60 
64 
68 
72 
76 
80 
84 
88 
92 
96 

uo 

U4 


1 

5 

9 

13 

17 

21 

25 

29 

33 

37 

41 

45 

49 

53 

57 

61 

65 

69 
73 
77 
81 
85 
89 
93 
97 
111 

US 


2 
6 
10 
14 
18 
22 
26 
30 
34 
38 
42 
46 
50 
54 
58 
62 
66 
70 
74 
78 
82 
86 
90 
94 
98 
112 
116 


3 
7 
11 
15 
19 

23 
27 
31 
35 
39 
43 
47 
51 
55 
59 
63 
67 
71 
75 
79 
83 
87 
91 
95 

99 
113 


L 


P 


T 

or 


N 


C 


s 


D 


BP 


NOTES 




20 




22 


38 





00 


OO 




V 


-J Set 




aaste Coram,, to p s 2 




xy 




22 


25 





Oil 


29 




IT 
M 


hannel *|N©t Set 




odifier * 0Uo22>* £>AK* 




(22) 
















18000001= 1 




as 




26 


38 


Qi 


28 


21 




m st - 1 

Coiratio * AR — — — >2J£.02. 
























& 




56 


56 


6 


21 


31 




fi-ansf ©r control to this from 
routine in line 19 , < ^~ — pT"2 




56 


U 


$1 


66 


O 


16 


Ok 




E 






uie jhq "■" "v^iiijie uu 




66 




70 


72 


k 


19 


22 




»im 

& CC" » 19.70,71— £>22> o 02 03 




72 


U 


73 


Ik 





19 


16 




Line 19— — — £>tine 16 




Ik 




86 


91 





19 


02 




Normal to p« 1 
Comrao - 19 .86 — £»02 « 86 — — O 


o 


(86) 


















585835V* ~| 
























00 




O? 


51 


CD 


OO 


00 




Restore & Exit 










































































































































































































^ 








































FORM 
BCD 

108-5.0 





















^ 





5D 
PROBLEM : 


Inte 


















Page 01 of 101 


I fed 

6-1 
PROGRAM 


^^CrTi Los Angolas 45, California , - . 
^•■^ Page Jl. ol U_ 

Prepared by R.J. Marge lin Date:7A 6 /58 

srcom 1000 D.?. - Card Output Routine Line 16 


1 
4 5 

8 9 
12 13 
16 17 

20 21 
24 25 
28 29 
32 33 
36 37 
40 41 
44 45 
48 49 
52 53 
56 57 
60 61 
64 65 
68 69 
72 73 

76 77 
80 81 
84 85 
88 89 
92 93 
96 97 
UO U1 

04 US 


2 

6 

10 

14 

18 

22 

26 

30 

34 

38 

42 

46 

50 

54 

58 

62 

66 

70 

74 

78 
82 
86 
90 
94 
98 
U2 

U6 


3 
7 
11 
15 
19 

23 
27 
31 
35 
39 
43 
47 
51 
55 
59 
63 
67 
71 
75 

79 
83 
87 
91 
95 
99 
U3 


L 


P 


T 


N 


C 


s 


D 


BP 


NOTES 


10 




1.3 


14 





23 


31 




Clear 


1U 




16 


28 


k 


21 


2$ 




AA Reg - 21.00,01 MD rt , 


28 




29 


1$ 





19 


28 




Exit 

Comrn, - 19.29- 


"J* 

NAT? 




(2?) 


W 


9? 


?k 


5 


21 


31 




NC from 0$.9li 




75 


u 


98 


98 





19 


05 




Part of ^ rj 
line 19 >Eine °* 


98 




02 


3k 


h 


19 


02 




Format - 19.02,03 >02.02j33 


(03) 
















fiooooco* 




(02) 
















! 
loooorinb* 




}k 


V 


36 


kl 


I 


21 


32 




L ♦ _i 

Trans to output conversion SR 


?k 


u 


?? 


9? 





29 


A? 




Clear Line 19 


9? 




U7 


88 





26 


19 




Sign 

Part ■ PN 1 - 


. /STO TT7 


Vi-7»« ( 


88 




89 


87 





12 


31 




Punch Card 


87 


w 


88 


80 





28 


28 




Waste 2 drum cycles 


80 




U6 


97 


k 


26 


1? 




Conv. ^ 

N«. « PN„ -r-019.U6.U7 to p.l 






















































































































































































U6 


















8lliY668* 




U7 


















1QOO60U* 






MEMORY ALLOCATION CHART 

Intercom 1000 (P.P.) 



Problem 



%•**"■'' 



Prepared by Robert J. Margolin. 



{■ 



CA-1 Data Input-Output. 



Check Sum . 100060u 



Page 82 of 101 

Page J^ of 1. 

_ Date « 2 ' 59 - 
Line 19/04/05 



O 



^ 





U7 

100060u 


U6 
814v668 


U5 


U4 




U3 


U2 


UI 


U0 




99 
65653zz 


98 
-8222262 


97 
v3012vz 


96 
v2632xw 




95 
yv58353 


94 
5z5z3v3 


93 
xz06v96 


92 




91 


90 


89 


88 
595717z 




87 
x85039w 


86 
585833v 


85 


84 




83 
5x5xv9x 


62 


81 


80 
-yu6l353 




79 
x625382 


78 
50533xw 


77 
5858000 


76 
4y4z09w 




75 
6262265 


74 
X661262 


73 

4w4y2zz 


72 
494u270 


Four4tford Lines 


7t 


7<k^ 


69 

-4849 2w4 


68 
4646uvz 


Line 


3 


2 


1 





67 
-xx602vz 


66 
-w648276 


65 
w344097 


64 
w24w396 


20 
21 
22 
23 


7Z0O3YO 


00003Y0 






63 
7z003yO 


62 

3y0 


61 
-4045094 


60 
-800v320 


Convertec 
Command 


Wd& Ch 


AA Re 


gister 


59 
3x400?x 


58 
3w3w3zz 


57 
3u3xlxz 


56 
3942204 


Tally 


Store 
Command 






55 
3u632zz 


54 
-3838uvz 


53 
373w3x 


52 
-8009278 


Return 
Command 








51 
3436093 


50 
v43709x 


49 


48 
32322x2 












47 


46 
3030vzw 


uz30396 


44 
uy61380 










43 


42 
uy35080 


41 

200000 


40 
2u2xw9x 




• 






39 


38 
28282xw 


37 
252539z 


36 
-v0392vz 










33 
u62uvxw 


34 

u4296vz 


33 
u42w27w 


32 












31 ' 


30 
lz21264 


29 
-xx5y6vz 


28 
Iy4v27w 










27 


26 


25 

iv26396 


24 










23 

u2335z 


22 

-8000001 


21 
17I73z9 


20 / 
9626000 










19 
961909x 


18 


17 
13132xz 


16 
lwOOOOO 








■ 




15 

' ll,1109x 


14 

-90lw2v9 


13 

z0z396 


12 

200000 










1" 

j x0x09x 


10 

x0y2zz 


09' ' 

24135z 


OB'" " m " 

8ul5395 










•07 . 


06 

8083zw 


05 

61y090 


04 










03 
8000000 


62 

y40 


01 


00 
8233C00 



Page 83 of 101 



V^ 



12, Intercom 1000 Command Card Routine 
12 # 1 Specifications 



ENTRTt 

EXIT* 
DATA INPUTt 

DATA OUTPUT* 



llie Intercom command 08 1775 causes tho routine to be 
transferred to line 1.9, and control transferred te 
word 75. 

None in this routine. 

Intercom commands punched on cards in the 026, N 
commands per card. 

Commands in consecutive Intercom locations beginning 
with the location specified by the second command of 
the two, which is K N ADDR. 

EXECUTION TDffit Basically, the time is determined by card reading 
time, during which conversion and storage of commands 
may occur* Each command requires 3 drum cycles. 

SHORT LINE 

LOCATIONS USED* Line Ok is used for storage of the routine during 
execution. Line 19 is used for input. Words uO 
through u7 of line 05 are used for temporary storage. 
Line 23 is used for input. In addition to the short 
line storage used by Intercom, this routine usesr 
20.02,03; 21.00; 21.01; 21.02,03; 22.01; 23.00-03. 



CHECK SUM: 



REMARKS: 



12.2 Method 



(u6) 4 t 80?00$ 
(u7) 100060v 

Index register 9 may not be used with the command to 
use this routine. 



Since this routine requires the use of line 19 for input, it cannot 
be executed from line 19 while the line is being used for input. 
It must be executed from some other command line. This is accomplished 
by interchanging it with line Ok of Intercom, using line 19 as inter- 
mediate storage. When the input is completed, the lines are switched 
back again. 

The routine must re-arrange the command from the card, which is in the 
form K OP CH WD to the form for storage K WD OP CH. By shifting, the 
first form is made into three versions, each containing some of the 
characters in the positions desired for the final form* Then, by 
extraction and combination, the final form is made up. 



O 
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12,3 Detailed Description 

^ 1* The Intercom command 08 177J> causes this routine to be transferred 

from line 17 to line 19 with the next command taken from word 75 
of the routine. 

2. Part of Intercom (line OU) is transferred into line 17 and this 
routine transfers itself from line 19 to line 0U» A special 
exit to this routine is inserted in the command interpreting 
part of Intercom at 00. U6, and control is transferred back to 
Intercom. 

3« On return to this routine from the Intercom command interpreting 
part, the command K N ADER has been converted to binary form 
giving WD, N and CH. (See page 11 of the Intercom 1000 Double 
Precision Technical Manual) 

iu A card read command is given* The two-word registers are cleared. 
N is extracted from the converted command and shifted (in AR) to 
the T position (2-8) to be used as a tally setter. A special 
extractor is placed in 20.02 . 

5. WD and CH are extracted from the converted command. The CH is 
then extracted and shifted right to the D position, recombined 
with WD and a dummy to form the initial store command. The 
contents of the AA register (20.00,01) are temporarily stored in 
line 0U. Special extractors are placed in 20.02,03. The normal 
'\^. command is restored to 00 o i*6. 

6* Ready is tested to find whether reading of card is completed. The 
card information is moved from lines 23 and 19 to 05>.uO-u7. 
• The last command from the card is tested against all a's. If 
not equal another card read command is given. If equal, the 
card read command is skipped. The tally setter is picked up. 

-fi 
7 # 1«2 is subtracted and the tally stored, then its sign tested. 

If negative, the program goes back to step 6 above. If not, the 

two-word registers are cleared, and a dummy added to the tally 

to form a pick-up command, which is executed„ The command from 

card is tested against all z's. If equal, the looping is ended 

(see 9 below). If not, the command is re-arranged into the form 

for internal storage. (See method) 

o 

8. The store command is executed, and then modified by having 1«2 
added to it. A constant of 28 »2~" is then added and the overflow 
testedo If the overflow is set, the last command from cards had 
been stored in word 99 of a channel. The next command, should be 
stored in word 00 of the next channel, so a channel modifier is 
added to form the new store commando The tally is then picked 
up and the loop goes back to step 7 above* 
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( 9. This routine is transferred, from line 0U to line 19, and the 

w contents of the AA register (21.00,01) is restored. Control 

is tranaf erred to this routine in line 19. Line 17 (the 

original line Ok of Intercom) is transferred back to line 01*. 

This routine is transferred from line 19 back to line 17, and 

control is returned to Intercom* 
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PROGRAM PROILEM : MTA Service Routine (INTERCOM 1000 D.P.) 


Liat 18/0^ 




L P 


Tor M 


CSDJBP NOTES 






*3 


ol* 13 


1 26 22 








MTA # -— — — p 22,00 
















13 


08 2jH 


3 ?JL3i 


Shift ID • (CH).-Dest. 






29 u 


. 3Ail. 


3 29_lg 


(0) >19. 
















35 


.3JL3I< 


3 31 31 






AR 


00 dP < 


D 00 00 












ENTER FROM OU.33- BELOW 






AR 


39 52 < 


3 13 31 


Read tape unit C NC 52 below 














o 






































ENTER "READ" 






01 v 


61 18 I 


* 21 Jl 


Mark 61 N.C. OI4.I8 




























18 


10 33 C 


) OU 28 


Read command— — (> AR 






10 


39 52 c 


> 13 31 






33 


36 35 C 


) 22 29 


Character 


















See 35 above 










t 1 . . . , ,., 




52 


ft 55 C 


OI4 28 


Read conn 










^ 


ft 1 


£Q.£Q.{L 


1131 




FORM 
BCD 


55 i 


48 57 


22 29 


(delay) a] 






10I-1M , 









fe^*^ 
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PROQRAMPROiLEM : MTA Service Routine (INTERCOM 1000 D.P.) Lin M/Wi 




L 


P 


To 


N 


c s 


D DP NOTES 




57 




u7 


u7 ( 


) 31 


31 






















u7 

AR 




60 
80 


60 
80 C 


3 13 


31 






u7 
AR 


u 


20+ 
WD 


68 

88 ( 


) 19 


CH 


Store Input N.C. Ok.68 See page 5 




60 


V 


U7 


00 1 


4 20 


31 


Return to mark > hi 


















































































^z 














ENTER "READ" (CONT.) 




61 




61 


61 ( 


) 28 


31 


Wait for ready 




62 




ul 


20 : 


L 19 


28 


V — ■* — esm 








20 


u 


21 


21 ' 


) 19 


29 


T. 19~=~{>AR 




21 




1+0 


23 \ 


I ok 


27 


«t> _ r»l /nl. Lft^ k. «ti 




AR » VU4,UU; [^AU 




ho 


u. 


20 


88 ( 


3 19 


00 


j Dummy store com. 
















- 




23 




21 


hi: 


» 25 


29 


Destination ±— £>AR 




LI 




ll* 


•>7 ( 


) 30 


12 


W d — t — t>AR N.C. OU.57 above 
















*0 




2ii 


u 


X) 


7*4 < 


3 1? 


-2J_ 


File block 
















YES 


v i 


7U 


V 


01 


82 I 


I 21 


31 


Set to read next block after delay 
















NO 


)RM 

CO 

-17.1 


75 


w 


7 


82 L 


21 


31 


Set to reverse after delay 
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MTA Service Routine (INTERCOM 1000 D.P.) 


Li it 18/0U 










L 


p To 
P L K 


r N 


c s 


BP NOTES 














ENTEH TO DELAY 




02 


81 


«?< 


) 01 


01 


delay 1 drum rev. 




u5 


ulf 


ul* ( 


) 01^ 


2k.. 


delay 2 drum rev. 






uli 


u2 


u2 ( 


) 06 


06 


delay 2 drum rev. 






u2 


uO 


uO ( 


) 08 


08 


delay 2 drum rev* 




uO 


U2 


60 ( 


) 0? 


09_ 


delay 2 drum rev. 
















Return to mark. 




























ENTER AFTER INVALID "READ" 




77 * 


37 


19 i 


I 21 


31 


Mark 37 to stop on B..P. otherwise mark 


return to 00, 


N-^ 
















19 


31 


55 < 


) 0l| 


28" 


) 




31 


?7 


58 ( 


) ou 


31 1 


1 














* Move off file code 




AR 


57 


58 C 


1 ou 


31 


| 




38 v 


00 


3?< 


) 60 


31 "* 


/ 




. 














AR 


57 


58 c 


; oU 


31 


Reverse tape motion 






58 


60 


60 C 


) 12 


31 


sets up to read in reverse direction 
















RETURN TO MARK 














ENTER HERE AFTER INVALID READ REVERSE 




00 


00 


X) 3 


28 


31 


Wait for ready then began re-read. 




O 




























FORM 

BCD 

108-11.8 



















e.i c n 
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LI it 18/oU' 




L 


P 


To 
L 5 


r M 


c s 


BP NOTES 
















ENTER "WRITE"' 




02 




9k 


# < 


D OU 


28 


Dummy f c 












9k 




$9 


63 < 


3 05 


31 








AR 




$9 


63 ( 


3 05 


31 


Skip first file code 






Ul 


V 


00 


85 ( 


) 00 


31 


Set ready. 




85 




36 


39 ( 


) ok 


28 


Dummy 11 












36 


u 


20 


52 C 


) 00 


19 






39 




k2 


57 C 


) 21 


29 










J 




AR 


u 


2(y 
wd 


32 
$2 ( 


> CH 


19 


CH,00-wd 


fOQ 






t>Ay 






32 




uO 


76 J 


>29 


19 




» 19»uO,ul 






" "*"— V 


\^y 


76 




78 


79 1 


L 29 


28 


n ...... J 


>AR 






""""" % 




79 


u 


80 


80 ] 


L 1? 


29__ 


22 19- ± -C>AR 




80 




ul 


69 3 


L 28 


19 


51 19 >19.ul 




69 




70 


81 ] 


t 28 


281 






81 




82 


83 ; 


i 28 


28 i 


I B SlM1W — O^O 




83 




uO 


m ] 


L 28 


19-- 


1 




8U 




86 


33 < 


) ob 


28 


form write command 




86 


w 


00 


67 ( 


) 01 


Jl 






AR 




00 


67 C 


J 01 


Jl 


write 19 on tape 




67 




67 


67 C 


) 28 


J! 






















68 


u 


6? 


11 C 


) 18 


19 


Line 18 (OU) 1>19 




11 




12 


25 c 


> Oil 


28 


Patch #2 — >AR 


w 


12 




kl 


UB 2 


31 


28 


Patch #2 


FORM t 

BCD 1 

ioi-n.t 1 
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Date: 

11m IBM 



I 






$ 



Sp 



NOTES 



ENTER "WRITE FUE*" 



03 



26 



33 



OU 



28 



Read command— — frAR 



26 



£ 



|1 



AS? 



£ 



SI 



_&_ 



00 



S6 



JSL 



JSL 



ii 



n 



iik 



J& 



H 



31 



13 



31 



00 



31 



Move off a top eode 



Oh 



28 



30 



31 



Set ready 



Write file em*' 



£*» 



v >J ,y 



V-^ 



AR 



M. 



i?_ 



^L 



»<£ 



lik 



& 



oo 



ol 



06 



Jk 



Alt 



_6i 



_& 



k£ 



22. & 



5P_ 



21 



3* 



19 



pi 



96 



52 



& 



PI 



13 



63 



28 



21 



28 



28 



19 



31 



Write file 



Add (file #) >AR 



to 



19 91-00 



K»0, 01* ,32 page $ 



"ENTER REVERSE" 



01* 



61 



63 63 



$1 



& 



J£ 



FORM 
ICO 



j& 



65 



to 



1*9 



82 



k 



ol* 



ok 



28 



21 



31 



28 



2k 



11 



31 



Mark 67 N.C* 0l*.19 w verse 



ENTER SEARCH 



Walt for ready 



Reverse search > AR 



18 



U9 



SJS 



22 92 



6 



21 



28 



21 



26 



11 



11 



31 



25 



31 



Reverse search 



Mark to delay routine 



Mark transfer to read routine 



Wait for ready 



File §- 



Shift 11 bite 
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PROGRAM PROBLEM : MTA Serriee Routine (INTERCOM 1000 D.P*) 


LI at 18/OU 




L 


P 


^ 


N 


c s 


DBF NOTES 




9* 




03 


17 ( 


) 19 


28 


Tap* file frAR 




1? 




20 


22 ( 


D 28 


26 








Tape file •— 1? pro 




22 




2? 


27 : 


L 26 


28 


0— OAR 




27 


tt 


61+ 


66 ! 


J 26 


30 


Shift 




66 


tt 


6? 


78 : 


L2? 


29_ 


File-Jt fcAR 




78 


tt 


81 


16 . 


3 26 


29 


Tape file ■— t>AR 




» 




17 


U7< 


3 28 


27 


AR *0 
















(Correot filet) 






li7 




i»a 


67 1 


D 00 


00 


Delay and exit 




U8 




»rt 


Uii 


D 21 


31 


Tape file to large* 


o 


















lib 


V 


59 


82 1 


4 21 


31 


N,C. delay routine 
















Search forward 




?9 




A 


33 < 


3 Ol| 


28 


n . .». r i t*r HTT 






Search forward ———par 




AS 




■?? 


6? i 


3 0? 


Jl 


N.C. 63 page 6 


















, 




tf 


V 


87 


82 ] 


4 21 


33 


Mark 87 go to delay 






30 












Empty 


■ 




87 




8? 


33 < 


) oh 


28 






89 




5? 


05 ( 


) 01*. 


Jl_ 






AR 




ft 


05 < 


5 Oii 


31 


Search reverae 
















N t C. reverse again 




r-~-_ 


JT 




6? 


67 C 


! 17 


12- 


B.P* Exit 




«6 
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FORM 


JL 
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Four-Word Lines 



o 



Line 



{■ 



Jlntercom 1000 (P.P.) 
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MTA Subroutine. 
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_ Date ^/2/59 t 
Line 18. 



U7 



1003189 



TJT 



840x756 



99 



D6 



2677544 



U2 



U5 



U4 



y868084 



Ul 



y464108 



95" 



y56749x. 



98 



W 



62622xz 



9# 



w 



y55zw9x 



87 



W 



x92109w 



§T 



y454793 



W 



T? 

505067X 

TT* 

-wx522vz 



7T 



4849092 
l 34339z 



n 

-81522VZ 

ns 

8yl927w 
g 6 — 

454y73x 



«r 



Jz3z39z 



59 



xy2l09w 



55" 



v0392xx 



W 



80380lz 



T? 



3143000 



TT 



55 



IT 

-40427 5y 



80550lz 



3? 



uu392vx 



25253zz 



51 



393u09z 



T5 



9529v3x 



19 



9z3709w 



rrs — ~ 

2w2y3xz 



M 



xl909w 



07 



9u5x094 



OT 



9w2l09w 



97 



885v49y 



9T 



3v3z0vz 



89 



20393 



89 



804303z 



81 



X169021 



7T 



51l0z5x 



62 



y51467w 



68 



3wvwl9z 



ST 



5050lvz 



f5 — 

-v641uv9 



W 



v25u2vw 



4T 



uy352vw 



38 



80230U 



IT 



I0l2vz 



30 



U143000 



26 



3y0 



IF 



991v75w 



18 



8u2109w 



14 



■58582vz 



TO 



27341vz 



oT 



y02109w 



OT 



xy3709w 



TJO 



U000 



6307395 



xz5v3zv 



y6660w6 



y63w!29 



96 



3v3z09z 



n 



831127w 



3v0509z 



84 



u42709w 



5353z9w 



TT 



•u5132vz 



73 



4v483vz 



J\ 



475179W 



6T 



165w75z 



61 



3x3x39 i 



■ 

6v6v3zz 



55 
vll22vz 

Tg 

313139z 



75 



x7522vz 



\T 



uy393xx 



37 



w243231 



33 



u4232xx 



29 



Iy233v3 



29 



uy47380 



33097vu 



x62109w 



80 



y545793 



TT 
wy4z7vw 



72 



4922264 



OT 



450v253 



-v5522vz 



60 



-uz0029z 



56 



8z2109w 



53 
v63709w 

[4l 

2w2w2xz 



T4 
-w522vz 



40 
1458260 



36 



1434013 



32 



y44v7v3 



128 
39331vz 



24 



21 



u81789v 



20 



77 
941639u 



13 



81x31z 



~~W 



BvS13xw 



OT 



50539z 



tol 

-vx!22vz 



4u27v 



1515y7x 



16 



122z39v 



12 
uz30vzw 

OT 

400 



01 : 

-w3132vz 



53" 



39z 



